VisualBasic程序设计实验指导书―09资源采矿(精)

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

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

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

4、设计模式,系统进入Visual标准EXE即标(2设计界面在系统提供的名为Forml的窗体上进行界面设计。单击工具箱上的标签(Label控件,在窗体上添加标签的位置处按下鼠标左键，并拖动，调整虚框的大小，松开鼠标，就将标签控件添加到窗体上。初始界面如图1.2所示。卜Font图1.2初始界面(3设置属性如表1.1所示。表1.1属性设置:一 对象属裡Form!C apt ion我的琢二个VBg序Label1Caption设置属性后的界面如图1.3所示眾的篇秩阳*二牛ME科疳陰图1.3设置属性后的界面图1.4第一个程序(4编写程序代码Private Sub Form_Click(Labell.Capt

5、ion =床前明月光End Sub(5运行程序运行VB程序有三种方法：单击工具栏上的 启动”按钮;从 运行”菜单中选 择启动”菜单项;按F5键。例如，单击工具栏上的 启动”按钮运行程序后，单击窗体，程序运行效果如图1.4所示。(6保存程序单击工具栏中的 保存”按钮或单击 文件”菜单中的 保存工程”菜单项，选择合适 的保存路径，先保存窗体文件(例如窗体文件名为 实验一.frm”然后保存工程文件(例 如工程文件名为 实验一.vbp”。2将Visual Basic工程编译生成可执行文件单击 文件”菜单中的 生成实验一.exe菜单项，就可生成可执行的.exe文件。退出Visual Basic集成开发环

6、境，双击实验一.exe文件，则实验一.exe文件就可直 接运行。六、实验报告要求格式规范合理，内容包括创建一个简单的Visual Basic窗体程序类的创建，类的方法,属性和事件。七、实验注意事项注意机房及计算机使用规范。八、思考题目如何实现现实世界的对象和计算机世界中的类的联系？实验二：命令按钮、文本框和标签一、实验目的1.掌握命令按钮、文本框和标签常用属性值的设置方法。2.学会使用命令按钮、文本框和标签在窗体上建立用户界面的方法。3.掌握命令按钮的主要事件的使用。二、实验要求利用命令按钮、文本框和标签判断密码是否正确三、实验仪器、设备及材料硬件环境:PC软件环境：操作系统Windows系列

7、Visual Basic 6.0四、实验原理VB程序开发原理五、实验步骤1.设计界面在窗体上添加两个标签、一个文本框和两个命令按钮。初始界面如图2.1所2.设置属性如表2.1所示表2.1属性设置对象属性属性值Label1 Caption请输入密码：Comma nd1 Caption登陆Comma nd2 Capti on退出Label2 Caption示。图2.1初始界面Label2 BorderStyle 1-Fixed SingleTextl TextTextl MaxLe ngth 16Textl PasswordCharForm1 Caption登陆界面设置属性后的界面如图2.2所示图

8、2.2设置属性后的界面3.编写程序代码Private Sub Comma nd1_Click(If Text1.Text=“goodbaby”ThenLabel2.Caption=欢迎使用本系统！”ElseLabel2.Caption=密码错误！请重新输入密码！”End IfEnd SubPrivate Sub Comma nd2_Click(EndEnd Sub4.运行程序(1在文本框中输入“goodbaby然后单击 登录”命令按钮，则在标签Label2中显示欢迎使用本系统！”。运行结果如图2.3所示。图2.3输入的密码正确2在文本框中输入“abc然后单击 登录”命令按钮，则在标签Label

9、2中显示“密码错误!请重新输入密码！”运行结果如图2.4所示图2.4输入的密码错误六、实验报告要求格式规范合理，内容包括一个简单的Visual Basic程序，利用命令按钮、文本框 和标签判断密码七、实验注意事项注意机房及计算机使用规范。八、思考题目VB程序的窗体设计的一般方法和过程？实验三：表达式、InputBox函数和MsgBox语句一、实验目的1.掌握表达式的构成和如何求表达式的值。2.掌握赋值语句的使用。3.掌握InputBox函数的使用。4.掌握MsgBox语句的使用。二、实验内容设计一个VB程序利用InputBox函数和MsgBox语句求圆的周长。三、实验仪器、设备及材料硬件环境:

10、PC软件环境：操作系统Windows系列Visual Basic 6.0四、实验原理VB程序开发原理五、实验步骤1.设计界面在窗体上添加一个命令按钮。初始界面如图3.1所示图3.1初始界面2.设置属性如表3.1所示表3.1属性设置对象属性属性值Comma nd1 Caption计算圆的周长Forml Caption InputBox和MsgBox举例设置属性后的界面如图3.2所示图3.2设置属性后的界面3.编写程序代码Private Sub Comma nd1_Click(Con st pi = 3.14159Dim r As Sin gle, s As Stri ng, s2 As Stri

11、 ngDim zhoucha ng As Sin gles = InputBox(请输入半径,输入半径,1r = Val(szhoucha ng = 2 * pi * rs2 =半径=+ s + ,圆的周长=+ Str(zhoucha ngMsgBox s2, 64,确认窗口End Sub4.运行程序单击工具栏上的 启动”按钮,进入运行模式。单击 计算圆的周长”命令按钮，在 输入框中输入圆的半径(例如，输入“2在消息框中输出半径和计算出来的圆的周长 如图3.3所示。(a单击 计算圆的周长”命令按钮(b输入圆的半径(c输出圆的半径和周长图3.3计算圆的周长九、实验报告要求设计VB程序，能够正确的

12、计算结果。六、实验注意事项注意机房及计算机使用规范。七、思考题目VB控件的使用方法和步骤？实验四：选择结构一、实验目的1.掌握逻辑表达式的正确书写形式。2.掌握单分支与双分支条件语句的用法，熟悉If.Then.Els语句。3.掌握选择结构中多条件，多分支程序的用法，熟悉Select Case语句二、实验内容1.编写程序，利用文本框检查用户密码。提示：可以用文本框的PasswordChar属 性来隐蔽用户输入的字符。提示：设密码是“123456利用文本框的PasswordCha属 性可以隐蔽用户输入的字符。2.输入一个数字（0-6,用中英文显示星期几。提示：用多条件多分支选择语句SelectCa

13、se来解决。三、实验仪器、设备及材料硬件环境:PC软件环境：操作系统Windows系列Visual Basic 6.0四、实验原理VB程序开发原理五、实验步骤(1建立用户界面(2设置对象属性。对象属性属性俏说明FrainlCaption诸输入您的密码TestiTejtt清空PasswordChar只显示字符Label1Caption皿性属性值说明KomiICaption星期(3编写事件代码Private Sub Text1_KeyPress(KeyAscii As In tegerIf KeyAscii = 13 Then 回车字符的Ascii为13If Text1.Text = 123456

14、 ThenLabel1.Caption =欢迎使用本系统!ElseLabell.Caption =对不起,密码错!End IfTextl.SelStart = 0Textl.SelLe ngth = Len (Textl.TextEnd IfEnd Sub(4运行程序程序输出界面如图2-4-1,图2-4-2所示LabUText 1Labl1I xt 1* Label2LabelZ.Coatnjidl9 图2-4-1验证密码正确图2-4-2验证密码不正确（1建立用户界面。参考图2-4-3所示。Labfl 11T#xt 1 : * *CoMtandl图2-4-3界面设计(2设置对象属性。表2-4-

15、2属性设置对歸届件幅柱值说明Form)Capti on星期Label ICaption输入个数字tO-6)Label?Caption空BorderStyle1 -Fixed Single边柜样式Command 1Caption星期DefaultTrue缺胃命令按tilTextlText(3编写事件代码Private Sub Comma nd1_Click( Dim n As In teger, m As Stringn = Val(Text1.TextSelect Case nCase 1m =星期一(Mo ndayCase 2m =星期二(TuesdayCase 3m =星期三(Wednes

16、day Case 4m =星期四（ThursdayCase 5m =星期五（FridayCase 6m =星期六（SaturdayCase 0m =星期日（SundayCase Elsem =重新输入End SelectLabel2.Captio n = mEnd Sub程序输出界面如图2-4-4所示图2-4-4程序运行结果六、实验报告要求建立VB程序，正确实现实验所要求的内容。七、实验注意事项注意机房及计算机使用规范。八、思考题目VB程序的流程控制方法？实验五：循环语句的使用一、实验目的1.掌握For语句的使用。2.掌握Do语句的使用。3.掌握如何控制循环条件，防止死循环或不循环。二、实验内

17、容正确掌握循环语句的使用方法。1.利用For循环求S=1+(1+2+(1+2+3+.+(1+2+3+.+n的值。提示：本题是先进 行内循环累加，再进行外循环累加，因此需要两个累加器.也可用一个循环来实现.括号 内每累加一个数，就往S中累加一次。2.输入一个正整数，利用 当型”循环判断是否素数。提示：素数”是除了1和该 数本身，不能被任何整数整除的数，判断一个自然数是否素数，只要依次2n用做除数 去除n,若n不能被其中任何一个数整除，则n为素数。三、实验仪器、设备及材料硬件环境:PC软件环境：操作系统Windows系列Visual Basic 6.0四、实验原理VB程序开发原理五、实验步骤(1建

18、立用户界面。(2设置对象属性。参考图2-5-1所示请軸人一金整褻:SEXQMMHMHRIIMK如请播入-T#：.Text!Text 1 I 1 H卜判斷I . i .*V*图2-5-1属性设置图2-5-2程序运行结果(3编写事件代码。Private Sub Comma nd1_Click(Dim n As Integer, i As Integer, j As Integer, s As Long n = Val(Text1.Textj = 0: s = 0For i = 1 To nj = j + is = s + jNext iLabel2.Caption =和数S= & Str(

19、sTextl.SelLe ngth = Len (Textl.TextEnd Sub(4运行程序程序输出界面如图2-5-2所示。2实验内容(1建立用户界面。参考图2-5-3所示请静二T整甦：_Text I , , * , . , 图2-5-3界面设计(2设置对象属性。(3编写事件代码Private Sub Text1_GotFocus(Textl.SelStart = 0Textl.SelLe ngth = Len (Textl.TextEnd SubPrivate Sub Comma nd1_Click(Dim n As LongSelect Case Val(Text1.TextCase

20、Is 2147483647MsgBox 该数太大, vbInformation + vbOKOnly,注意Case Elsen = Val(Text1.Texts = 0i = 2Do While i = Sqr( n And s = 0If n Mod i = 0 Thens = 1Else: i = i + 1End IfLoopIf s = 0 The na =是一个素数Elsea =不是一个素数End IfLabell.Caption = Str(n & aEnd SelectText1.SetFocusEnd Sub(4运行程序程序运行结果如图2-5-4所示图2-5-4程序运

21、行结果六、实验报告要求正确创建VB程序，实现实验要求中的内容。七、实验注意事项注意机房及计算机使用规范。八、思考题目那些情况下会用到循环语句，循环语句与选择语句使用情况的区别For语句的异同？实验六：单选框和复选框的应用一、实验目的1.掌握单选框，复选框的定义。2.掌握单选框，复选框的区别。二、实验内容建立一个标准工程实现单选框和复选框的组合应用。三、实验仪器、设备及材料硬件环境:PC软件环境：操作系统Windows系列Visual Basic 6.0四、实验原理VB程序开发原理DO语句和五、实验步骤1.设计界面在窗体上添加一个单选框组（包含三个单选框，一个复选框组（包含三个复选框,两个标签框

22、。初始界面如图2 -6-1所示。图2-6-1初始界面图2-6-2设置属性后的界面2.设置属性，如表2-6-1所示表2-6-1对彖厲性Optionbutton 1 (0)Caption张文Oplionbuttonh 1)Caption王雪Optionbuttonli2iCaption林非Checkbox 1(0)CaptionVB6.0语再程序设计Checkbox! (1)Caption汇编语言Checkbox 1(2)Caption单片机原理Label 1caption无Label2caption无设置属性后的界面如图2-6-2所示3.编写程序代码 For *1匚 f 壬 r 册厂1M|厂广舟

23、和彳 r e痕 *Malia Private Sub Check1_Click(i ndex As In tegerDim k As Stri ngDim i As In tegerIlliFor i = 0 To 2If Check1(i.Value = 1 Thenk = k & Check1(i.Capti on & End IfNext ik =你选择了 & kLabel2.Capti on = kEnd SubPrivate Sub Optio n1_Click(i ndex As In tegerDim i As In tegerFor i = 0 To 2

24、If Optio n1(i ndex.Visible = True ThenLabel1.Caption =你选择了 & Option1(index.CaptionEnd IfNext iEnd Sub4.运行程序分别单选框中的某一项和复选框中的某几项，程序运行效果如图图2-6-3运行结果六、实验报告要求建立VB程序，正确实现单选框和复选框的应用七、实验注意事项注意机房及计算机使用规范。八、思考题目哪些情况下会使用单选框，哪些情况会使用复选框？实验七：组合框的应用一、实验目的1.掌握组合框的常用属性。2了解列表框和组合框的区别。2-6-3所示。、实验内容运用组合框实现内容的添加与删除功

25、能。三、实验仪器、设备及材料硬件环境:PC软件环境：操作系统Windows系列Visual Basic 6.0四、实验原理VB程序开发原理五、实验步骤1.设计界面在窗体上添加四个命令按钮，一个标签，一个组合框和一个文本框。初始界面如图2-7-1所示。图2-7-1初始界面图2-7-2设置属性后的界面2.设置属性，如表2-7-1所示表2-7-1属性设置LU1IMITBI对象属性屈性值Command iCaption删除Cnnnnand2Caption添加Command3Caption清除Conimanil4Caption关闭Uihel】Caption学校Text)text无设置属性后的界面如图3.

26、编写程序代码Private Sub CmdAdd_Click( CboMsg.Text = Txt In for.TextEnd SubPrivate Sub CmdClear_Click(CboMsg.ClearEnd SubPrivate Sub CmdDel_Click(Dim In tI ndex As In tegerIn tI ndex = CboMsg.ListI ndexCboMsg.Text =Call Del(I ntln dexEnd SubPrivate Sub CmdE nd_Click(EndEnd SubPrivate Sub Form_Load(With Cbo

27、MsgAdditem 武汉大学,0AddItem 武汉科技大学,1Additem 武汉理工大学,2Additem 华中科技大学,3Listi ndex = 0End WithEnd Sub4.运行程序结果如图2-7-3所示图2-7-3程序运行结果六、实验报告要求建立VB程序,正确实现组合框的内容应用七、实验注意事项注意机房及计算机使用规范。八、思考题目组合框的使用方法和环境。实验八：图像框的应用一、实验目的1熟悉图像框与图片框的区别。2.掌握图像框的属性与特点二、实验内容将一个图形文件放到图像框中，改变图像框的大小，观察图形是否随之改变。三、实验仪器、设备及材料硬件环境:PC软件环境：操作系统

28、Windows系列Visual Basic 6.0四、实验原理VB程序开发原理五、实验步骤1.设计界面在窗体上添加五个命令按钮和一个图像框。初始界面如图2-8-1所示ITreCMMndlC-ntan 盃CoHMIBklZCssdHBndJ* *_ CttnnISk图2-8-1初始界面图2-8-2设置属性后的界面2.设置属性，如表2-8-1所示表2-8-1属性设置对象属性風性值Command)Caption改变宽度Command?Caption衣变高度Command 3Ciiption改变髙度和宽度Cominand4Caption恢复慷始尺寸Command4Caption退出Image Ipic

29、tureE:vb652O3483-wmf1 mage Istretchtrue设置属性后的界面如图2-8-2所示3.编写程序代码Private Sub Comma nd1_Click(Imagel.Left = Image1丄eft - lmage1.Width / 2 lmage1.Width =Image1.Width * 2End SubPrivate Sub Comma nd2_Click(Imagel.Top = Imagel.Top - Imagel.Height / 2Imagel.Height = Imagel.Height * 2End SubPrivate Sub Comm

30、a nd3_Click(lmage1.Left = Image1 .Left - lmage1.Width / 2lmage1.Width = Image1.Width * 2Imagel.Height = Imagel.Height * 2End SubPrivate Sub Comma nd4_Click(Imagel. Left = 2225Imagel.Top = 666Imagel.Height = 1515Imagel.Width = 1515End SubPrivate Sub Comma nd5_Click(EndEnd Sub4.运行程序分别单击五个命令按钮，程序运行效果如图

31、2-8-3 2-8-6所示图2-8-3改变宽度后运行结果图2-8-4改变高度后运行结果图2-8-5改变高度和宽度后的运行结果图2-8-6恢复原始尺寸六、实验报告要求建立VB程序，正确实现以上内容七、实验注意事项注意机房及计算机使用规范。八、思考题目图像框的应用方式和场合实验九：定时器、实验目的1.掌握定时器控键的用法。2.熟悉定时器控键的属性。二、实验内容编写一个程序利用计时器计时。三、实验仪器、设备及材料硬件环境:PC软件环境：操作系统Windows系列Visual Basic 6.0四、实验原理VB程序开发原理五、实验步骤1.设计界面在窗体上添加四个命令按钮，一个标签，一个计时器控件。初始

32、界面如图 所示。2-9-1图2-9-1初始界面2.设置属性，如表2-9-1所示表2-9-1属性设置对象幡性值Command 1Ca ption开始汁时Com mand2Caption怎止CoininandSCaption重新斤始LubcllBordcrSlyk1-Fixed SingleLabel ICaption0TinierlenabletrueTimer 1interval400设置属性后的界面如图2-9-2所示图2-9-2设置属性后的界面3.编写程序代码Private Sub comma nd1_Click(Timerl.E nabled = TrueEnd SubPrivate Su

33、b Comma nd2_Click(Timerl.E nabled = FalseEnd SubPrivate Sub Comma nd3_Click(Labell.Caption = 0End SubPrivate Sub Comma nd4_Click(EndEnd SubPrivate Sub Form_Load(Me.Capti on = Format(Now, hh:mm:ssEnd SubPrivate Sub Timer1_Timer(Dim count As Longcount = Label1.Capti oncount = count + 1Label1.Captio n

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

35、垂直滚动条，一个水平滚动条,一个文本框，一个命令按钮。初 始界面如图2-10-1所示。图2-10-1初始界面2.设置属性表2-10-1对彖属性属性值Hscroll!max1200Hscroltlmin100Hscroll 1largcchngc300V scroll!max800Vscrulllmm50Vscrollllarechange300Text!textVb6Q程序设计语吾Command 1caption退出设置属性后的界面如图2-10-2所示图2-10-2设置属性后的界面3.编写程序代码Private Sub Comma nd1_Click(EndEnd SubPrivate Sub

36、 HScroll1_Cha nge(Text1丄eft = 800 + HScroll1.ValueEnd SubPrivate Sub VScroll1_Cha nge(Textl.Top = 300 + VScrolll.ValueEnd Sub4.运行程序分别拖动水平滚动条或者垂直滚动条，程序运行效果如图2-10-3所示图2-10-3程序运行效果六、实验报告要求正确创建VB程序，实现所要求的内容七、实验注意事项注意机房及计算机使用规范。八、思考题目滚动条的特点？实验十一：数组、实验目的1了解一维数组的用法2.学会声明,使用一维数组。应用数组解决有关数组常用算法问题。3.了解二维数组的用法

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

38、控件 来显示矩阵的元素。(2设置对象属性。(3编写事件代码Private Sub Form_Activate(Dim z(10, 10 As In tegerFor n = 1 To 10For m = 1 To 10If n = m Or n = 11 - m The nz( n, m = 1Elsez( n, m = 0End IfNextNextPicture1.Pri ntFor n = 1 To 10For m = 1 To 10Picture1.Print Tab(m * 3; z(n, m;输出各元素的值NextPrint换行NextEnd Sub(4运行程序程序输出界面如图2-11-4所示图2-11-4程序运行结果六、实验报告要求创建VB程序，正确是实现对数组的应用七、实验注意事项注意机房及计算机使用规范。八、思考题目数组的创建方法和应用范围？实验十二：Function过程一、实验目的1.掌握Function过程的定义。100000000100000100100010000101000000100000001100000010010000100001001000Q0011000000001JklQi 列2.掌握Function过程的调用。3.掌握Function过程参数传递规则。、实验内容编写一个求任意数的平方的函数，调用该函数求110的平方数三、