VB课程设计报告.docx

1、VB课程设计报告北京XX大学XX学院 计算机程序设计 课程设计报告 学年 第 学期 起 始 周 班 级 学 生 指导教师 XXXXX 系(部) 年 月 日实训要求一. 题目及要求二系统程序与开发设计实训题目功能一. 基本vb程序设计二顺序结构程序设计三. 选择结构程序设计四. 循环结构程序设计五. 数组六过程七图形程序设计八课外vb程序设计总结一. 各程序设计总结二. 小组组员分工附录一.参考文献VB演示系统报告、 实训要求一.题目及要求 VB程序演示系统：1. 按照程序设计教程的思路，把程序设计语言的语法基础，顺序结构，选择结构，循环结构，数组，过程等章节内容，通过相应的程序把相关的知识点展

2、现出来；2. 用到所学的控件；3. 内容包括必做题, 习题和例题，课外题目(每人编制6个以上)；4. 除必做题外,平均每人完成题目15个以上。5. 要求系统结构清晰，简单适用，有很强的启发性。 课程设计报告-基本要求： 1. 题目2. 系统开发环境3. 系统设计及程序设计 功能模块图 各模块的实现4. 课程设计过程中遇到的问题与解决方法5. 总结（小组成员各自完成）6. 分工 7. 附：程序源程序二.系统程序与开发1. Visual Basic,简称VB，是Microsoft公司推出的一种Windows应用程序开发工具。是当今世界上使用最广泛的编程语言之一，它也被公认为是编程效率最高的一种编程

3、方法。无论是开发功能强大、性能可靠的商务软件，还是编写能处理实际问题的实用小程序，VB都是最快速、最简便的方法。 何谓 Visual Basic？“Visual”指的是采用可视化的开发图，用户界面（GUI）的方法，一般不需要编写大量代码去描述界面元素的外观和位置，而只要把需要的控件拖放到屏幕上的相应位置即可；“Basic”指的是BASIC语言，因为VB是在原有的BASIC语言的基础上发展起来的，至今包含了数百条语句、函数及关键词，其中很多和 Windows GUI 有直接关系。专业人员可以用 Visual Basic 实现其它任何 Windows 编程语言的功能，而初学者只要掌握几个关键词就可

4、以建立实用的应用程序。 VB提供了学习版、专业版和企业版，用以满足不同的开发需要。学习版使编程人员很容易地开发Windows和Windows NT的应用程序；专业版为专业编程人员提供了功能完备的开发工具；企业版允许专业人员以小组的形式来创建强健的分布式应用程序。2.介绍界面构造 集成开发环境的顶部有标题栏、主菜单和工具栏。下部有几个子窗口：工具箱、窗体窗口、工程窗口、属性窗口及窗体布局窗口，根据需要，这些子窗口可以被关闭或打开。3.对集成开发环境中的各元素作简要介绍标题栏用来显示窗口的标题。主菜单主菜单栏中含了使用VB6.0所需要的命令。主菜单中共有13个菜单项，每个菜单项都有一个下拉菜单，内

5、含若干个菜单命令，单击某个菜单项，即可打开该菜单，单击某个菜单中的某一条，就执行相应的命令。工具栏它以图标按钮的形式提供了常用的菜单命令。单击工具栏上的按钮，则执行该按钮所代表的操作。左面是VB的工具箱，里面的各种图标是我们开发程序时经常用到的标准控件。.正中间是窗体编辑器，又称对象窗口。我们程序的界面，大部分是在它上面设计的。.右上方是工程资源管理器，它能让我们对整个工程进行整体性的管理。右中处的是属性窗口，陈列着程序中所涉及的各种窗体和控件的属性。右下方是窗体布局区，它能够调节程序运行时窗体在屏幕中的位置。5.基本知识 “工程”的概念。VB把一个应用程序称为一个工程（Project），而一

6、个工程又是各种类型的文件的集合，这些文件包括工程文件（.vbp）、窗体文件（.frm）、标准模块文件（.bas）、类模块文件（.cls）、资源文件（.res）、ActiveX 文档（.dob）、ActiveX 控件（.ocx）、用户控件文件（.ctl）、 属性页文件（.pag）。需要指出的是，并不是每一个工程都要包括上述所有文件，VB 要求一个工程至少包含两个文件，即工程文件（.vbp）和窗体文件（.frm）。至于一个工程要包括多少种文件，由程序设计的复杂程度而定。一个工程可以通过“工程窗口”来显示，工程窗口列出了当前工程所包含的文件清单。Visual Basic的特点： 1. 具有面向对象的

7、可视化设计工具 2. 事件驱动的编程机制 3. 结构化的程序设计语言 4. 提供了易学易用的应用程序集成开发环境 5.支持多种数据库系统的访问 6.高度可移植化的代码 7.VB6.0在开发环境上,网络功能等的大大增强 、 设计实训题目功能 输入用户名和密码可以登录我们的界面。在系统显示密码正确后进行登陆。系统登陆主界面，等待1秒后可进入主界面。主界面包括：必做题、课内习题、课外题。一必做题1.两位数四则运算器对所显示的两位数四则运算进行计算，并同时显示：“共答”、“正确”、“错误”、“成绩”的答题情况汇总。返回上一级页面可单击“结束”按钮。运算器程序代码如下：Dim num1 As Integ

8、er, num2 As Integer, nok As Integer, ncuo As IntegerDim result As Single, k As String, m As DoublePrivate Sub Command1_Click()EndEnd SubPrivate Sub Form_Load()Randomizenum1 = Int(Rnd * 90) + 10Label2.Caption = num1num2 = Int(Rnd * 90) + 10Label4.Caption = num2k = Int(Rnd * 4) + 1Select Case kCase 1L

9、abel3.Caption = + result = Val(num1 + num2) Case 2Label3.Caption = - result = Val(num1 - num2) Case 3Label3.Caption = * result = Val(num1 * num2) Case 4Label3.Caption = / result = Val(num1 / num2) End SelectEnd SubPrivate Sub Text1_KeyPress(KeyAscii As Integer)Static i As IntegerIf KeyAscii = 13 The

10、n m = Val(Text1.Text) If result = m Then List1.AddItem Label2.Caption & Label3.Caption & Label4.Caption & = & m & nok = nok + 1 Text3.Text = nok Else List1.AddItem Label2.Caption & Label3.Caption & Label4.Caption & = & m & ncuo = ncuo + 1 Text4.Text = ncuo End If Call Form_Load i = i + 1 Text2.Text

11、= i Text1.Text = Text5.Text = Val(nok / i) * 100)End IfEnd Sub2.判断生肖选择或输入相应的出生年份，单击“判断”按钮，系统便会正确判断出相应年份的属相，并显示相应的生肖动物。其代码如下：Private Sub Command1_Click()Dim year As IntegerDim temp As IntegerIf Combo1.Text Thenyear = Val(Combo1.Text)End Iftemp = year Mod 12Select Case tempCase 0Label2.Caption = 猴Imag

12、e1.Picture = LoadPicture(App.Path & /图片/猴.gif)Case 1Label2.Caption = 鸡Image1.Picture = LoadPicture(App.Path & /图片/鸡.gif)Case 2Label2.Caption = 狗Image1.Picture = LoadPicture(App.Path & /图片/狗.gif)Case 3Label2.Caption = 猪Image1.Picture = LoadPicture(App.Path & /图片/猪.gif)Case 4Label2.Caption = 鼠Image1.P

13、icture = LoadPicture(App.Path & /图片/鼠.gif)Case 5Label2.Caption = 牛Image1.Picture = LoadPicture(App.Path & /图片/牛.gif)Case 6Label2.Caption = 虎Image1.Picture = LoadPicture(App.Path & /图片/虎.gif)Case 7Label2.Caption = 兔Image1.Picture = LoadPicture(App.Path & /图片/兔.gif)Case 8Label2.Caption = 龙Image1.Pictu

14、re = LoadPicture(App.Path & /图片/龙.gif)Case 9Label2.Caption = 蛇Image1.Picture = LoadPicture(App.Path & /图片/蛇.gif)Case 10Label2.Caption = 马Image1.Picture = LoadPicture(App.Path & /图片/马.gif)Case 11Label2.Caption = 羊Image1.Picture = LoadPicture(App.Path & /图片/羊.gif)End SelectEnd SubPrivate Sub Form_Load

15、()Label1.Caption = 请选择或输入您的出生年份，系统将会判断出您的属相Dim i As IntegerFor i = 1900 To 2010Combo1.AddItem iNext iCombo1.Text = Combo1.List(0)End Sub3英文打字 在屏幕中随机生成英文字母并按一定速率下落，下落过程中敲击键盘上的按键，当按键与屏幕出现的字母相同时加10分，限时1分钟，计时达1分钟，系统进行提示。界面显示相应得分并提示倒计时秒数。按“暂停”按钮可暂停打字游戏，按“结束”按钮可结束该游戏。代码如下：Dim score As IntegerDim flag As B

16、ooleanPrivate Sub Command1_Click()If Command1.Caption = 开始 Then Timer1.Enabled = True Timer2.Enabled = True Command1.Caption = 暂停Else Command1.Caption = 开始 Timer1.Enabled = False Timer2.Enabled = False End If End SubPrivate Sub Command1_KeyPress(KeyAscii As Integer)If Chr(KeyAscii) = Label4.Caption

17、Thenscore = score + 10flag = FalseCall Timer1_TimerBeepLabel1.Caption = 得分 & Str(score) & 分End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Label4.Caption = Label3.Caption = 在屏幕中随机生成英文字母并按一定速率下落，下落过程中敲击键盘上的按键 _ & 当按键与屏幕出现的字母相同时加10分，限时1分钟End SubPrivate Sub Timer1_Timer(

18、)If flag = False ThenLabel4.Caption = Chr(Int(Rnd * 26) + 97)Label4.Left = Int(Rnd * Shape3.Width) + Shape3.LeftLabel4.Top = 1000flag = TrueElseLabel4.Top = Label4.Top + 200If Label4.Top Shape3.Height - 200 Thenflag = FalseEnd IfEnd IfEnd SubPrivate Sub Timer2_Timer()Static i As Integeri = i + 1Labe

19、l2.Caption = 倒计时 & Str(60 - i) & 秒If i = 60 ThenIf MsgBox(一分钟的练习结束了 是否继续？, vbYesNo + vbQuestion, 提示) = vbYes Theni = 0score = 0Elsei = 0score = 0Timer1.Enabled = FalseTimer2.Enabled = FalseCommand1.Caption = 开始End IfEnd IfEnd Sub二、课内习题1. 顺序结构程序设计简单使用代码如下：Private Sub Command1_Click()Text1.Text = 欢迎使用

20、Visual Basic 6.0End SubPrivate Sub Command2_Click()Text1.Text = End SubPrivate Sub Command3_Click()Unload MeEnd Sub2. 顺序结构程序设计数据输入代码输入：Private Sub Text1_Change()Text2.Text = LCase(Text1.Text)Text3.Text = UCase(Text1.Text)End Sub3. 顺序结构程序设计程序设计举例输入实发工作金额，单击“付款方式”按钮。系统则会显示付款方案，包括人名币各金额的实发张数，点击“确定”可重新输

21、入实发工资金额。 程序设计举例代码输入如下：Private Sub Command1_Click()Dim bai As IntegerDim fifty As Integer, twenty As IntegerDim ten As Integer, five As IntegerDim two As Integer, one As IntegerDim pay As Stringsalary = Val(Text1.Text)bai = salary 100salary = salary Mod 100fifty = salary 50salary = salary Mod 50twent

22、y = salary 20salary = salary Mod 20ten = salary 10salary = salary Mod 10five = salary 5salary = salary Mod 5two = salary 2salary = salary Mod 2one = salarypay = 百元张数： & bai & Chr$(13) & Chr$(10) & _ 50元张数： & fifty & Chr$(13) & Chr$(10) & _ 20元张数： & twenty & Chr$(13) & Chr$(10) & _ 5元张数： & five & Chr

23、$(13) & Chr$(10) & _ 2元张数： & bai & Chr$(13) & Chr$(10) & 1元张数： & oneMsgBox 付款方案 & vbCrLf & pay, vbInformation = vbOKOnly, 付款方案End Sub4.选择结构程序设计选择性控件界面所显示文字可根据“字体”、“字号”、“颜色”的选择改变而改变。代码输入如下：Private Sub Form_Load()Option1.Value = TrueOption4.Value = TrueOption7.Value = TrueLabel1.FontName = 黑体Label1.Fo

24、ntSize = 12Label1.ForeColor = RGB(255, 0, 0)End SubPrivate Sub Command1_Click()If Option1.Value Then Label1.FontName = 黑体If Option2.Value Then Label1.FontName = 隶书If Option3.Value Then Label1.FontName = 幼圆If Option4.Value Then Label1.FontSize = 12If Option5.Value Then Label1.FontSize = 20If Option6.

25、Value Then Label1.FontSize = 28If Option7.Value Then Label1.ForeColor = RGB(255, 0, 0)If Option8.Value Then Label1.ForeColor = RGB(0, 255, 0)If Option9.Value Then Label1.ForeColor = RGB(0, 0, 255)End Sub5.选择结构程序设计时钟设计代码如下：Private Sub Form_Load()Label1.BorderStyle = 1Label1.FontSize = 24Label1.Captio

26、n = TimeLabel1.Alignment = 2End SubPrivate Sub Timer1_Timer()Label1.Caption = TimeEnd Sub6.循环结构程序设计三位数排序 代码设计如下：Private Sub Form_Click()Dim a$, amn%, amx%, a1%, a2%, a3%, rmn%, rmx%a = 1Do While Len(a) 3 Or Not IsNumeric(a)a = InputBox(输入一个三位数)a = Trim(a)Loopa1 = Int(Val(a) / 100)a2 = Int(Val(a) / 1

27、0) - 10 * a1a3 = Val(a) - 100 * a1 - 10 * a2amx = (a1 + a2) / 2 - Abs(a1 - a2) / 2amn = (a2 + a3) / 2 - Abs(a2 - a3) / 2rmn = (amx + amn) / 2 - Abs(amx - amn) / 2Print a; :; rmn,amx = (a1 + a2) / 2 + Abs(a1 - a2) / 2amn = (a2 + a3) / 2 + Abs(a2 - a3) / 2rmx = (amx + amn) / 2 + Abs(amx - amn) / 2Prin

28、t a1 + a2 + a3 - rmn - rmx, rmxEnd Sub7.循环结构程序设计fornext语句循环此程序为1-n乘法运算，输入n的值，系统将会进行运算，得出正确数据。 输入代码如下：Private Sub Command1_Click()Dim i As Integer, n As Integer, T As Longn = Val(InputBox(请输入n=)Label1.Caption = 1*2*3* & n & = T = 1 For i = 1 To n T = T * i NextText1.Text = TEnd Sub8. 循环结构程序设计doloop语句

29、代码输入如下：Private Sub Command1_Click()Dim n As Integer, s As Longn = 1s = 0Do While s = 1000 s = s + n n = n + 1LoopText1.Text = nLabel2.Caption = = & sEnd Sub9. 循环结构程序设计循环嵌套程序举例代码设计如下：Private Sub Form_Load() Show FontSize = 10 Print Tab(25); 乘法表 Print Print *; For i = 1 To 9 Print Tab(i * 6); i; Next Print For j = 1 To 9 Print j; ; For k = 1 To 9 Print Tab(6 * k); j * k; Next k Print Next jEnd Sub10.数组静态数组代码输入如下：Dim n(1 To 10) As StringPrivate Sub Form_Load() n(1) = 高扬