Visual Basic 程序设计实验指导书―09资源采矿

1、Visual Basic实验指导书编制人:李雯静资源工程系二七年九月Visual Basic实验指导书Visual Basic实验指导书 (1实验一:Visual Basic 简单程序设计及语言基础 (4实验二: 命令按钮、文本框和标签 (7实验三: 表达式、InputBox函数和MsgBox语句 (10实验四: 选择结构 (13实验五: 循环语句的使用 (17实验六: 单选框和复选框的应用 (21实验七: 组合框的应用 (24实验八: 图像框的应用 (27实验九: 定时器 (30实验十: 滚动条 (33实验十一: 数组 (36实验十二: Function过程 (38实验十三: Sub 过程

2、(40实验十四: 菜单设计 (43实验十五: 工具栏,状态栏设计 (46实验十六: 绘图程序设计 (52实验十七: 顺序文件操作 (56实验十八: 随机文件操作 (59实验十九: 文件系统控件 (62说明:实验1-16为实验上机必须完成的实验,其中实验1-13的1个学时在课堂上完成,另外1个学时由学生自行课后补充完成。实验17-19为选做实验,可根据学生对本课程的学习情况选择是否进行,在课后自行完成。实验一:Visual Basic 简单程序设计及语言基础一、实验目的熟悉Visual Basic 6.0 集成开发环境;了解和掌握类、对象以及对象的三要素(属性、方法和事件;理解并掌握VB程序的执

3、行步骤。二、实验内容初步掌握Visual Basic 6.0 集成开发环境的操作能够建立一个简单的VB小程序,实现类的抽象,属性、方法和事件的定义和简单的响应正确理解实验步骤,能够自己动手操作三、实验仪器、设备及材料硬件环境:PC软件环境:操作系统Windows 系列四、实验原理VB程序开发原理五、实验步骤(1新建工程方法1:在桌面上双击Microsoft Visual Basic 6.0快捷方式图标,系统进入Visual Basic6.0集成开发环境,并显示“新建工程”对话框,默认选择是建立“标准EXE”(即标准工程。单击“打开”按钮, Visual Basic 6.0进入设计模式。如图1.

4、1所示。 图1.1 新建工程对话框方法2:单击“文件”菜单,选择“新建工程”菜单项,也可进入设计模式。(2设计界面在系统提供的名为Form1的窗体上进行界面设计。单击工具箱上的标签(Label控件,在窗体上添加标签的位置处按下鼠标左键,并拖动,调整虚框的大小,松开鼠标,就将标签控件添加到窗体上。初始界面如图1.2所示。 (3设置属性如表1.1所示。表1.1 属性设置 设置属性后的界面如图1.3所示。 (4编写程序代码Private Sub Form_Click( Label1.Caption = 床前明月光End Sub(5运行程序运行VB程序有三种方法:单击工具栏上的“启动”按钮;从“运行”

5、菜单中选择“启动”菜单项;按F5键。例如,单击工具栏上的“启动”按钮运行程序后,单击窗体,程序运行效果如图1.4所示。(6保存程序单击工具栏中的“保存”按钮或单击“文件”菜单中的“保存工程”菜单项,选择合适的保存路径,先保存窗体文件(例如窗体文件名为“实验一.frm”,然后保存工程文件(例如工程文件名为“实验一.vbp”。2.将Visual Basic工程编译生成可执行文件单击“文件”菜单中的“生成实验一.exe”菜单项,就可生成可执行的.exe文件。退出Visual Basic集成开发环境,双击实验一.exe文件,则实验一.exe文件就可直接运行。六、实验报告要求格式规范合理,内容包括创建一

6、个简单的Visual Basic 窗体程序。类的创建,类的方法,属性和事件。七、实验注意事项注意机房及计算机使用规范。八、思考题目如何实现现实世界的对象和计算机世界中的类的联系?实验二: 命令按钮、文本框和标签一、实验目的1.掌握命令按钮、文本框和标签常用属性值的设置方法。2.学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。3.掌握命令按钮的主要事件的使用。二、实验要求利用命令按钮、文本框和标签判断密码是否正确三、实验仪器、设备及材料硬件环境:PC软件环境:操作系统Windows 系列四、实验原理VB程序开发原理五、实验步骤在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面如图

7、2.1所示。 图2.1 初始界面表2.1 属性设置对象属性属性值Label1 Caption 请输入密码:Command1 Caption 登陆Command2 Caption 退出Label2 CaptionLabel2 BorderStyle 1-Fixed SingleText1 TextText1 MaxLength 16Text1 PasswordChar *Form1 Caption 登陆界面 图2.2 设置属性后的界面Private Sub Command1_Click(If Text1.Text=“goodbaby”ThenLabel2.Caption=“欢迎使用本系统!”El

8、seLabel2.Caption=“密码错误!请重新输入密码!”End IfEnd SubPrivate Sub Command2_Click(EndEnd Sub(1在文本框中输入“goodbaby”,然后单击“登录”命令按钮,则在标签Label2中显示“欢迎使用本系统!”。运行结果如图2.3所示。 图2.3 输入的密码正确2在文本框中输入“abc”,然后单击“登录”命令按钮,则在标签Label2中显示“密码错误!请重新输入密码!”。运行结果如图2.4所示。 图2.4 输入的密码错误六、实验报告要求格式规范合理,内容包括一个简单的Visual Basic 程序,利用命令按钮、文本框和标签判断

9、密码七、实验注意事项注意机房及计算机使用规范。八、思考题目VB程序的窗体设计的一般方法和过程?实验三: 表达式、InputBox函数和MsgBox语句一、实验目的1.掌握表达式的构成和如何求表达式的值。2.掌握赋值语句的使用。3.掌握InputBox函数的使用。4.掌握MsgBox语句的使用。二、实验内容设计一个VB程序,利用InputBox函数和MsgBox语句求圆的周长。三、实验仪器、设备及材料硬件环境:PC软件环境:操作系统Windows 系列四、实验原理VB程序开发原理五、实验步骤在窗体上添加一个命令按钮。初始界面如图3.1所示。 图3.1 初始界面表3.1 属性设置对象属性属性值Co

10、mmand1 Caption 计算圆的周长Form1 Caption InputBox和MsgBox举例 图3.2 设置属性后的界面Private Sub Command1_Click( Dim r As Single, s As String, s2 As StringDim zhouchang As Singles = InputBox(请输入半径, 输入半径, 1r = Val(szhouchang = 2 * pi * rs2 = 半径= + s + ,圆的周长= + Str(zhouchangMsgBox s2, 64, 确认窗口End Sub单击工具栏上的“启动”按钮,进入运行模式

11、。单击“计算圆的周长”命令按钮,在输入框中输入圆的半径(例如,输入“2”,在消息框中输出半径和计算出来的圆的周长,如图3.3所示。 (a单击“计算圆的周长”命令按钮 (b输入圆的半径 (c 输出圆的半径和周长图3.3 计算圆的周长九、实验报告要求设计VB程序,能够正确的计算结果。六、实验注意事项注意机房及计算机使用规范。七、思考题目VB控件的使用方法和步骤?实验四: 选择结构一、实验目的1.掌握逻辑表达式的正确书写形式。2.掌握单分支与双分支条件语句的用法,熟悉If.Then.Else语句。3.掌握选择结构中多条件,多分支程序的用法,熟悉Select Case语句二、实验内容1. 编写程序,利

12、用文本框检查用户密码。提示:可以用文本框的PasswordChar属性来隐蔽用户输入的字符。提示:设密码是“123456”,利用文本框的PasswordChar属性可以隐蔽用户输入的字符。2.输入一个数字(0-6,用中英文显示星期几。提示:用多条件多分支选择语句SelectCase来解决。三、实验仪器、设备及材料硬件环境:PC软件环境:操作系统Windows 系列四、实验原理VB程序开发原理五、实验步骤(1建立用户界面。(2设置对象属性。 (3编写事件代码。Private Sub Text1_KeyPress(KeyAscii As IntegerIf KeyAscii = 13 Then 回

13、车字符的Ascii为13If Text1.Text = 123456 ThenLabel1.Caption = 欢迎使用本系统!ElseLabel1.Caption = 对不起,密码错!End IfText1.SelStart = 0End IfEnd Sub(4运行程序程序输出界面如图2-4-1,图2-4-2所示。 图2-4-1 验证密码正确图2-4-2 验证密码不正确(1建立用户界面。参考图2-4-3所示。 图2-4-3 界面设计(2设置对象属性。表2-4-2 属性设置 (3编写事件代码。Private Sub Command1_Click( Dim n As Integer, m As

14、StringSelect Case nCase 1m = 星期一(MondayCase 2m = 星期二(TuesdayCase 3m = 星期三(Wednesday Case 4m = 星期四(ThursdayCase 5m = 星期五(FridayCase 6m = 星期六(SaturdayCase 0m = 星期日(SundayCase Elsem = 重新输入End SelectLabel2.Caption = mEnd Sub程序输出界面如图2-4-4所示。 图2-4-4 程序运行结果六、实验报告要求建立VB程序,正确实现实验所要求的内容。七、实验注意事项注意机房及计算机使用规范。八

15、、思考题目VB程序的流程控制方法?实验五: 循环语句的使用一、实验目的1.掌握For语句的使用。2.掌握Do语句的使用。3.掌握如何控制循环条件,防止死循环或不循环。二、实验内容正确掌握循环语句的使用方法。1. 利用For循环求S=1+(1+2+(1+2+3+.+(1+2+3+.+n的值。提示:本题是先进行内循环累加,再进行外循环累加,因此需要两个累加器.也可用一个循环来实现.括号内每累加一个数,就往S中累加一次。2.输入一个正整数,利用“当型”循环判断是否素数。提示:“素数”是除了1和该数本身,不能被任何整数整除的数,判断一个自然数是否素数,只要依次2n用做除数去除n,若n不能被其中任何一个

16、数整除,则n为素数。三、实验仪器、设备及材料硬件环境:PC软件环境:操作系统Windows 系列四、实验原理VB程序开发原理五、实验步骤(1建立用户界面。(2设置对象属性。参考图2-5-1所示。 图2-5-1 属性设置图2-5-2 程序运行结果(3编写事件代码。Private Sub Command1_Click( j = 0: s = 0For i = 1 To nj = j + is = s + jNext iLabel2.Caption = 和数S= & Str(sEnd Sub(4运行程序程序输出界面如图2-5-2所示。(1建立用户界面。参考图2-5-3所示。 图2-5-3 界面设计(

17、2设置对象属性。(3编写事件代码。Private Sub Text1_GotFocus( Text1.SelStart = 0End SubPrivate Sub Command1_Click(Dim n As LongCase Is 2147483647MsgBox 该数太大, vbInformation + vbOKOnly, 注意Case Elses = 0i = 2Do While i = Sqr(n And s = 0If n Mod i = 0 Thens = 1Else: i = i + 1End IfLoopIf s = 0 Thena = 是一个素数Elsea = 不是一个素

18、数End IfLabel1.Caption = Str(n & aEnd SelectEnd Sub(4运行程序程序运行结果如图2-5-4所示。 图2-5-4 程序运行结果六、实验报告要求正确创建VB程序,实现实验要求中的内容。七、实验注意事项注意机房及计算机使用规范。八、思考题目那些情况下会用到循环语句,循环语句与选择语句使用情况的区别。DO语句和For语句的异同?实验六: 单选框和复选框的应用一、实验目的1.掌握单选框,复选框的定义。2.掌握单选框,复选框的区别。二、实验内容建立一个标准工程实现单选框和复选框的组合应用。三、实验仪器、设备及材料硬件环境:PC软件环境:操作系统Windows

19、 系列四、实验原理VB程序开发原理五、实验步骤在窗体上添加一个单选框组(包含三个单选框,一个复选框组(包含三个复选框,两个标签框。初始界面如图2 -6-1所示。 图2-6-1 初始界面图2-6-2 设置属性后的界面2.设置属性,如表2-6-1所示。表2-6-1 设置属性后的界面如图2-6-2所示。Private Sub Check1_Click(index As IntegerDim k As StringDim i As Integerk = For i = 0 To 2If Check1(i.Value = 1 Thenk = k & Check1(i.Caption & End IfNe

20、xt ik = 你选择了 & kLabel2.Caption = kEnd SubPrivate Sub Option1_Click(index As IntegerDim i As IntegerFor i = 0 To 2If Option1(index.Visible = True ThenEnd IfNext iEnd Sub分别单选框中的某一项和复选框中的某几项,程序运行效果如图2-6-3所示。 图2-6-3 运行结果六、实验报告要求建立VB程序,正确实现单选框和复选框的应用七、实验注意事项注意机房及计算机使用规范。八、思考题目哪些情况下会使用单选框,哪些情况会使用复选框?实验七:

21、组合框的应用一、实验目的1.掌握组合框的常用属性。2.了解列表框和组合框的区别。二、实验内容运用组合框实现内容的添加与删除功能。三、实验仪器、设备及材料硬件环境:PC软件环境:操作系统Windows 系列四、实验原理VB程序开发原理五、实验步骤在窗体上添加四个命令按钮,一个标签,一个组合框和一个文本框。初始界面如图2-7-1所示。 图2-7-1 初始界面图2-7-2 设置属性后的界面2.设置属性,如表2-7-1所示。表2-7-1 属性设置 设置属性后的界面如图End SubPrivate Sub CmdClear_Click(End SubPrivate Sub CmdDel_Click(Di

22、m IntIndex As IntegerCboMsg.Text = Call Del(IntIndexEnd SubPrivate Sub CmdEnd_Click(EndEnd SubPrivate Sub Form_Load(With CboMsgAddItem 武汉大学, 0AddItem 武汉科技大学, 1AddItem 武汉理工大学, 2AddItem 华中科技大学, 3ListIndex = 0End WithEnd Sub 图2-7-3 程序运行结果六、实验报告要求建立VB程序,正确实现组合框的内容应用。七、实验注意事项注意机房及计算机使用规范。八、思考题目组合框的使用方法和环

23、境。实验八: 图像框的应用一、实验目的1.熟悉图像框与图片框的区别。二、实验内容将一个图形文件放到图像框中,改变图像框的大小,观察图形是否随之改变。三、实验仪器、设备及材料硬件环境:PC软件环境:操作系统Windows 系列四、实验原理VB程序开发原理五、实验步骤在窗体上添加五个命令按钮和一个图像框。初始界面如图2-8-1所示。 图2-8-1 初始界面图2-8-2 设置属性后的界面2.设置属性,如表2-8-1所示。表2-8-1 属性设置 设置属性后的界面如图2-8-2所示。Private Sub Command1_Click(Image1.Left = Image1.Left - Image1

24、.Width / 2Image1.Width = Image1.Width * 2End SubPrivate Sub Command2_Click(Image1.Top = Image1.Top - Image1.Height / 2Image1.Height = Image1.Height * 2End SubPrivate Sub Command3_Click(Image1.Left = Image1.Left - Image1.Width / 2Image1.Width = Image1.Width * 2Image1.Height = Image1.Height * 2End Sub

25、Private Sub Command4_Click(Image1.Left = 2225Image1.Top = 666Image1.Height = 1515Image1.Width = 1515End SubPrivate Sub Command5_Click(EndEnd Sub分别单击五个命令按钮,程序运行效果如图2-8-3 2-8-6所示。 图2-8-3 改变宽度后运行结果图2-8-4 改变高度后运行结果 图2-8-5 改变高度和宽度后的运行结果图2-8-6 恢复原始尺寸六、实验报告要求建立VB程序,正确实现以上内容。七、实验注意事项注意机房及计算机使用规范。八、思考题目图像框的应

26、用方式和场合。实验九: 定时器一、实验目的1.掌握定时器控键的用法。2.熟悉定时器控键的属性。二、实验内容编写一个程序利用计时器计时。三、实验仪器、设备及材料硬件环境:PC软件环境:操作系统Windows 系列四、实验原理VB程序开发原理五、实验步骤在窗体上添加四个命令按钮,一个标签,一个计时器控件。初始界面如图2-9-1所示。 图2-9-1 初始界面2.设置属性,如表2-9-1所示。表2-9-1 属性设置 设置属性后的界面如图2-9-2所示 图2-9-2 设置属性后的界面Private Sub command1_Click(Timer1.Enabled = TrueEnd SubPrivat

27、e Sub Command2_Click(Timer1.Enabled = FalseEnd SubPrivate Sub Command3_Click(Label1.Caption = 0End SubPrivate Sub Command4_Click(EndEnd SubPrivate Sub Form_Load(Me.Caption = Format(Now, hh:mm:ssEnd SubPrivate Sub Timer1_Timer(Dim count As Longcount = count + 1Label1.Caption = countEnd Sub单击“开始计时”命令按

28、钮,程序运行效果如图2-9-3所示。 图2-9-3 程序运行效果六、实验报告要求正确实现VB程序,完成实验中的要求七、实验注意事项注意机房及计算机使用规范。八、思考题目定时器的使用方法和特点,以及所适用的情况?实验十: 滚动条一、实验目的1.掌握滚动条的应用。2.熟悉滚动条的属性。二、实验内容设计一程序,当拖动或单击水平和垂直滚动条使窗体上的文本框将随之上下或者左右移动三、实验仪器、设备及材料硬件环境:PC软件环境:操作系统Windows 系列四、实验原理VB程序开发原理五、实验步骤在窗体上添加一个垂直滚动条,一个水平滚动条,一个文本框,一个命令按钮。初始界面如图2-10-1所示。 图2-10

29、-1 初始界面表2-10-1 设置属性后的界面如图2-10-2所示。 图2-10-2 设置属性后的界面Private Sub Command1_Click(EndEnd SubPrivate Sub HScroll1_Change(End SubPrivate Sub VScroll1_Change(End Sub分别拖动水平滚动条或者垂直滚动条,程序运行效果如图2-10-3所示。 图2-10-3 程序运行效果六、实验报告要求正确创建VB程序,实现所要求的内容七、实验注意事项注意机房及计算机使用规范。八、思考题目滚动条的特点?实验十一: 数组一、实验目的1.了解一维数组的用法。2.学会声明,使

30、用一维数组。应用数组解决有关数组常用算法问题。3.了解二维数组的用法。4.学会声明,使用二维数组。应用数组解决有关数组常用算法问题。二、实验内容编写程序,建立并输出一个10*10的矩阵,该矩阵两条对角线元素为1,其余元素为0。提示:由于矩阵由行,列组成,需要双下标才能确定一元素位置,所以,使用二维数组来表示矩阵。设行用n表示,列用m 表示,则主对角线元素即为行与列相等的元素(即n=m,而次对角线的下标满足:n=11-m。三、实验仪器、设备及材料硬件环境:PC软件环境:操作系统Windows 系列四、实验原理VB程序开发原理五、实验步骤(1建立用户界面。在窗体中使用图片框控件Picture1,参

31、见图2-11-3所示,当然也可用列表框控件来显示矩阵的元素。(2设置对象属性。(3编写事件代码。Private Sub Form_Activate(Dim z(10, 10 As IntegerFor n = 1 To 10For m = 1 To 10If n = m Or n = 11 - m Thenz(n, m = 1Elsez(n, m = 0End IfNextNextFor n = 1 To 10For m = 1 To 10Picture1.Print Tab(m * 3; z(n, m; 输出各元素的值NextPrint 换行NextEnd Sub(4运行程序程序输出界面如图

32、2-11-4所示。 图2-11-4 程序运行结果六、实验报告要求创建VB程序,正确是实现对数组的应用。七、实验注意事项注意机房及计算机使用规范。八、思考题目数组的创建方法和应用范围?实验十二: Function过程一、实验目的1.掌握Function过程的定义。2.掌握Function过程的调用。3.掌握Function过程参数传递规则。二、实验内容编写一个求任意数的平方的函数,调用该函数求110的平方数。三、实验仪器、设备及材料硬件环境:PC软件环境:操作系统Windows 系列四、实验原理VB程序开发原理五、实验步骤在窗体上添加一个标签和一个列表框。初始界面如图2-12-1所示。 图2-1

33、2-1 初始界面图2-12-2 设置属性后的界面表2-12-1 属性设置 设置属性后的界面如图2-12-2所示Private Function power(x As Integer As Integerpower = x * xEnd FunctionPrivate Sub Form_Click( Dim a As IntegerFor a = 1 To 10List1.AddItem power(aNext aEnd Sub运行程序后,单击窗体,程序运行效果如图2-12-3所示。 图2-12-3 求110的平方数六、实验报告要求创建VB程序,正确是实现对Function过程的调用。七、实验注

34、意事项注意机房及计算机使用规范。八、思考题目Function过程的使用方法和环境?实验十三: Sub 过程一、实验目的1.掌握Sub过程的定义。2.掌握Sub过程的调用。3.掌握Sub过程参数传递规则。二、实验内容编写一个求阶乘的过程,调用该过程求4!和6!。三、实验仪器、设备及材料硬件环境:PC软件环境:操作系统Windows 系列四、实验原理VB程序开发原理五、实验步骤在窗体上添加两个命令按钮和两个标签。初始界面如图2-13-1所示。 图2-13-1 初始界面图2-13-2 设置属性后的界面表2-13-1 属性设置 Private Sub jiecheng(n As Integer, re

35、sult As LongDim i As Integerresult = 1For i = 1 To nresult = result * iNext iEnd SubPrivate Sub Command1_Click( Dim x As Integer, t As Longx = 4Call jiecheng(x, tLabel1.Caption = Str(x + != + Str(tEnd SubPrivate Sub Command2_Click( Dim x As Integer, t As Longx = 6Call jiecheng(x, tLabel2.Caption = S

36、tr(x + != + Str(tEnd Sub分别单击“4!”命令按钮和“6!”命令按钮,程序运行效果如图2-13-3所示。 图2-13-3 求4!和6!六、实验报告要求创建VB程序,正确是实现对Sub过程的应用。七、实验注意事项注意机房及计算机使用规范。八、思考题目Sub过程与Function 过程在使用方法,适用环境上的异同?实验十四: 菜单设计一、实验目的1.了解菜单编辑器的作用,利用菜单编辑器掌握设计菜单的步骤,方法和技巧。2.掌握窗口菜单的设计方法。3.掌握弹出式菜单的设计方法。二、实验内容1.设计菜单程序,在菜单栏中有“程序”和“附件”两个菜单。其中“程序”菜单包括“Word”,

37、“Excel”和“PowerPoint”3个选项。“附件”菜单包括“画图”和“游戏”。而“游戏”又包括“纸牌”和“扫雷”。当用户进行选择时,能启动相应的应用程序。2.为文本框设计弹出式菜单,该菜单包含“红色”,“蓝”和“黄”3个选项,单击相应的选项后可该变文本框中文字的颜色。三、实验仪器、设备及材料硬件环境:PC软件环境:操作系统Windows 系列四、实验原理VB程序开发原理五、实验步骤(1打开“菜单编辑器”窗口,设置各菜单选项。参考图2-14-1所示。 图2-14-1 菜单编辑器(2设置对象属性。参考表2-14-1。表2-14-1 菜单项属性设置标题(Caption名称(Name说明程序(

38、&GProg 主菜单项1.Word(&w Word 子菜单项12.Excel(&E Excel 子菜单项13.PowerPoint(&P PowerPoint 子菜单项14附件(&F Fujian 主菜单项2.画图Huatu 子菜单项21.游戏Youxi 子菜单项22.纸牌Zhipai 子子菜单项221.扫雷Saolei 子子菜单项222 (3编写事件代码。Private Sub excel_Click( Shell (c:program filesmicrosoft officeoffice11excel.exe, vbNormalFocusEnd SubPrivate Sub huatu_

39、Click( Shell (c:winntsystem32mspaint.exe, vbNormalFocusEnd SubPrivate Sub powerpoint_Click( Shell (c:program filesmicrosoft officeoffice11PowerPnt.exe, vbNormalFocus End SubPrivate Sub saolei_Click( Shell (c:winntsystem32winmine.exe, vbNormalFocusEnd SubPrivate Sub word_Click( Shell (c:program files

40、microsoft officeoffice11winword.exe, vbNormalFocus End SubPrivate Sub zhipai_Click( Shell (c:winntsystem32sol.exe, vbNormalFocusEnd Sub(4运行程序程序输出界面如图2-14-2所示。(1建立用户界面。添加一个文本框控件Text1。打开“菜单编辑器”窗口,设置各菜单选项。注意:要将顶级菜单的Visible属性设为False。参考图2-14-3所示。 图2-14-2程序运行结果图2-14-3 菜单编辑器(2编写事件代码。Private Sub blue_Click( Text1.ForeColor = vbBlueEnd SubPrivate Sub red_Click( Text1.ForeColor = vbRedEnd SubPrivate Sub yellow_Click(Text1.ForeColor = vbYellowEnd SubPrivate Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As