VBVB 程序设计程序设计课程设计说明书课程设计说明书设计题目：设计题目：程序设计程序设计系系别：别：电气工程学院电气工程学院专专业：业：计算机应用技术计算机应用技术姓姓名：名：姜仕姜仕龙龙学学号：号：0020611010020611013636起讫时间：起讫时间： 2012.12.3-2012.12.72012.12.3-2012.12.7指导教师：指导教师：董欣董欣黑龙江职业学院课 程设 计 任务 书学生姓名学生姓名姜仕姜仕龙龙专业班级专业班级1 1计算机应用计算机应用学号学号 0020611010020611013636指导教师指导教师董欣董欣设计地点设计地点校内校内设计题目设计题目VBVB 程序设计程序设计设计任务与要求设计任务与要求（包括原始数据、技术参数；设计要求，设计计算说明书（或论文） 、图纸、实 物样品等） ： 一、课程设计准备阶段 （1）掌握 VB 程序设计的一般步骤 （2）能够按照要求进行程序设计 （3）查找资料、自学、创新能力培养 二、课程设计实施阶段 任务一任务一：企业人事管理系统设计（项目 1项目 5） 要求：以小组为单位进行设计，分工明确。成员按照自己具体实施内容进行课程设计 说明书的书写（必须配以程序截图） 。 任务二任务二： “计算器”程序设计 要求：使用标准控件进行简单计算器的设计，完成计算功能（界面自定） 。 任务三任务三：独立程序的开发 要求：设计具有一定实际功能的应用程序，程序功能需完善、有一定的创新（界面自 定） 。 三、课程设计调试阶段 按照课程设计的进度，上机调试应用程序，使得开发的程序可以正常运行。 四、课程设计检查阶段 （1）书写课程设计任务说明书 （2）上交课程设计任务说明书 （3）检查课程设计作品 进度安排进度安排（包括时间划分和各阶段主要工作内容） 2 课时：课程设计准备阶段 4 课时：任务一的设计与实施 4 课时：任务二的设计与实施 6 课时：任务三的设计与实施 4 课时：任务调试阶段以及课程设计检查 系（或教研室）审核意见：系（或教研室）审核意见：审核人签名及系公章：年月日任务下达人任务下达人 （签字）（签字）董欣董欣 2012 年年 12 月月 3 日日任务接受人任务接受人 （签字）（签字） 年年月月日日备注备注：1.本任务书由指导教师填写相关栏目，经系审核同意后，交学生根据要求完成设计任务。2.本任务书装订于课程设计封面之后，目录页之前。课程设计说明书第1页目录1 1引言引言21.11.1VisualVisual BasicBasic 简介简介 21.21.2发展历史发展历史21.31.3VisualVisual BasicBasic 6.06.0. 32 2企业人事管理系统设计企业人事管理系统设计. 42.12.1企业人事管理系统设计企业人事管理系统设计 MDIMDI 窗体运行截图窗体运行截图.42.1.1MDI 窗体设计截图.42.1.2MDI 窗体运行截图.42.22.2MDIMDI 窗体主要代码窗体主要代码 42.32.3MDIMDI 窗体设计心得窗体设计心得 63 3简单计算器程序设计简单计算器程序设计. 73.13.1简单计算器程序截图简单计算器程序截图. 73.1.1简单计算器设计截图73.1.2计算 22*22 截图73.23.2简单计算器程序主要代码简单计算器程序主要代码. 73.33.3计算器设计心得计算器设计心得. 104 4电话簿程序设计电话簿程序设计. 124.14.1电话簿程序截图电话簿程序截图. 124.1.1电话簿设计截图124.1.2电话簿程序运行截图124.24.2电话簿程序主要代码电话簿程序主要代码. 124.34.3电话簿设计心得电话簿设计心得. 135 5总结总结14课程设计说明书第2页1 1引言引言Visual Basic 语言简便易学，有许多优点，例如：可编写标准模块，在多个窗体中调用相同的程序，也可自定义函数，在同一工程中自由调用，可以添加多个专用部件，为编程带来了方便，为编写使用方便、功能强大的生活小助手软件提供了良好的平台。1.11.1VisualVisual BasicBasic 简介简介Visual Basic 是一种由微软公司开发的包含协助开发环境的事件驱动编程语言。从任何标准来说，VB 都是世界上使用人数最多的语言不仅是盛赞 VB 的开发者还是抱怨 VB 的开发者的数量。它源自于 BASIC 编程语言。VB拥有图形用户界面（GUI）和快速应用程序开发（RAD）系统，可以轻易的使用 DAO、RDO、ADO 连接数据库，或者轻松的创建 ActiveX 控件。程序员可以轻松的使用 VB 提供的组件快速建立一个应用程序。1.21.2发展历史发展历史1991 年，微软公司推出了 Visual Basic 1.0。当时引起了很大的轰动。这个连接编程语言和用户界面的进步被称为 Tripod（有些时候叫做 Ruby） ，最初的设计是由阿兰库珀（Alan Cooper）完成的。许多专家把 VB 的出现当做是软件开发史上的一个具有划时代意义的事件。 在当时， 它是第一个“可视”的编程软件。 这使得程序员欣喜之极， 都尝试在 VB 的平台上进行软件创作。微软也不失时机地在四年内接连推出 2.0、3.0、4.0 三个版本。并且从VB 3.0 开始，微软将 Access 的数据库驱动集成到了 VB 中，这使得 VB 的数据库编程能力大大提高。从 VB 4.0 开始，VB 也引入了面向对象的程序设计思想。VB 功能强大，学习简单。而且，VB 还引入了“控件”的概念，使得大量已经编好的 VB 程序可以被我们直接拿来使用。2002 年开始，微软将 .NET Framework 与 Visual Basic 结合而成为 Visual Basic .NET(VB.NET)， 重新打造 VB， 新增许多特性及语法， 又将 VB 推向一个新的高度。最新版本 Visual Basic 2012 也带将来许多令人期待的新功能。1-3通过几年的发展，它已成为一种专业化的开发语言和环境。用户可用 VisualBasic 快速创建 Windows 程序，并可编写企业水平的客户端/服务器程序及强大的数据库应用程序。课程设计说明书第3页 1.31.3VisualVisual BasicBasic 6.06.01998企业真正高效的源泉 Visual Basic 6.0 作为 Visual Studio 6.0 的一员发布，证明微软正在改变 Visual Basic 的产品 定位，他想让 Visual Basic 成为企业级快速开发的利器。Visual Basic 6.0 在数据访问方面有了很大的改进，新的 ADO 组件让对大 量数据快速访问成为可能。数据环境和新的报表功能也让数据开 发有了全新的体验。Visual Basic 借助 COM/COM+强大的功能，可 以开发具有 N 层结构的分布式应用程序。同时，Visual Basic 还 可以在 IIS 上开发性能超群的 Web 应用程序。Visual Basic 6.0 在语言方面和 IDE 方面的改进都不大，但是许多新增的组件成为 Visual Basic 开发人员手中的利器，如 File System Object 等。 新的字符串函数 Split 和 Replace 等也给 Visual Basic 的程序员 带来很大方便。课程设计说明书第4页 2 2企业人事管理系统设计企业人事管理系统设计2.12.1企业人事管理系统设计企业人事管理系统设计 MDIMDI 窗体运行截图窗体运行截图2.1.1MDI 窗体设计截图图 2.1 窗体设计截图2.1.2MDI 窗体运行截图图 2.2 窗体运行截图课程设计说明书第5页 2.22.2MDIMDI 窗体主要代码窗体主要代码Private Sub cengdiesdsdsdsd_Click()MDIForm1.Arrange 0End SubPrivate Sub denglu_Click()Form1.ShowEnd SubPrivate Sub dfdsfdf_Click()MDIForm1.Arrange 2End SubPrivate Sub dsdsdsdsd_Click()MDIForm1.Arrange 3End SubPrivate Sub guanbi_Click()Unload MDIForm1.ActiveFormEnd SubPrivate Sub sdsdsd_Click()MDIForm1.Arrange 1End SubPrivate Sub tianjiayuangongxinxi_Click()Form3.ShowEnd SubPrivate Sub xianshiyonghu_Click()Form2.ShowEnd Sub课程设计说明书第6页Private Sub yuangongchaxunchuangkou_Click()Form4.ShowEnd Sub2.32.3MDIMDI 窗体设计心得窗体设计心得通过 MDI 窗体的设计，让我更好的了解 Visual Basic。提高了我的操作熟练度，更熟悉的运用菜单编辑器，以及对 MDI 窗体各种属性的应用。课程设计说明书第7页 3 3简单计算器程序设计简单计算器程序设计3.13.1简单计算器程序截图简单计算器程序截图3.1.1简单计算器设计截图图 3.1 计算器设计截图3.1.2计算 22*22 截图图 3.2 计算 22*22 截图课程设计说明书第8页 3.23.2简单计算器程序主要代码简单计算器程序主要代码Dim x As Integer, y As Integer, z As StringPrivate Sub Command1_Click()Text1.Text = Text1.Text + “1“End SubPrivate Sub Command10_Click()x = Text1.TextText1.Text = “z = “+“End SubPrivate Sub Command11_Click()y = Text1.TextSelect Case zCase “+“Text1.Text = x + yCase “-“Text1.Text = x - yCase “*“Text1.Text = x * yCase “/“Text1.Text = x / yEnd SelectEnd SubPrivate Sub Command12_Click()Text1.Text = “课程设计说明书第9页End SubPrivate Sub Command13_Click()x = Text1.TextText1.Text = “z = “-“End SubPrivate Sub Command14_Click()EndEnd SubPrivate Sub Command15_Click()x = Text1.TextText1.Text = “z = “*“End SubPrivate Sub Command16_Click()x = Text1.TextText1.Text = “z = “/“End SubPrivate Sub Command17_Click()Text1.Text = Text1.Text + “0“End SubPrivate Sub Command2_Click()Text1.Text = Text1.Text + “2“End Sub课程设计说明书第10页Private Sub Command3_Click()Text1.Text = Text1.Text + “3“End SubPrivate Sub Command4_Click()Text1.Text = Text1.Text + “4“End SubPrivate Sub Command5_Click()Text1.Text =