VB实训指导书.doc

《VB实训指导书.doc》由会员分享，可在线阅读，更多相关《VB实训指导书.doc（31页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、Visual Basic实验指导前 言 本课程共安排9个上机实验（36学时），每次实验要求上机之前做好预习及教材上有关内容的复习,对每次上机实验的内容及实验目的要做到心中有数。 每次实验完成后，都要进行小结并写出实验报告。实验一 VB环境和程序设计初步 一、实验目的1、了解VB系统对计算机软硬件的要求。2、掌握启动与退出VB的方法。3、初步掌握菜单栏、工具栏、窗体窗口、工具箱、工程资源管理器窗口和属性窗口的使用。4、掌握建立、编辑、运行一个简单的VB应用程序的全过程。5、掌握常用控件（文本框、标签、命令按钮）的应用。二、实验内容1、 编写一程序，在屏幕上显示”欢迎您使用Visual Basic

2、”，并输入你的名字。Private Sub Command1_Click()Label1.Caption = Text1.Text & 欢迎使用 visual basic 6.0 !End SubPrivate Sub Form_Load()Text1.Text = End Sub2、设计一程序程序，运行结果如下：附：主要代码：Private Sub cmdClear_Click() txtDisplay.Text = End SubPrivate Sub cmdExit_Click() EndEnd SubPrivate Sub cmdInput_Click() txtDisplay.Tex

3、t = 欢迎来到Visual Basic6.0编程世界End Sub实验二 数据类型、运算符和表达式一、实验目的1、掌握Visual Basic 6.0数据类型的概念。2、掌握常量和变量的概念、定义方法和作用域。3、 掌握各种运算符的功能、表达式的构成、表达式中运算符的运算顺序和如何求表达式的值。4、掌握常用标准函数的一般形式、功能和用法。5、 进一步熟悉Visual Basic 6.0集成环境二、实验内容本实验先手工求出题中表达式的值，然后在立即窗口中使用Print方法计算和输出题中各式的值。1、利用下列式子测试各种运算符的功能。(1) (2)(3) (4) (5)”Visual”&”Bas

4、ic” (6)Not 85(7)33 (8)True And False(9)55 (10)53 Or False2、利用下列函数测试常用标准函数的功能。(1)Int(-1234.5678) (2)Fix(1234.5678)(3)Val(“12.34”) (4)Cint(1234.5678)(5)Abs(-100) (6)Sgn(-100)(7)Sqr(sqr(16) (8)Left(“Visual Basic 6.0”,6)(9)Mid(“Visual Basic 6.0”,8,5) (10)InStr(1,”Visual Basic 6.0”,”Basic”)(11)String(3,”

5、$”) (12)Int(100*Rnd)+1)3、利用下列表达式测试表达式中运算符的运算顺序和求表达式的值。(1)(3+6)2 (2)184*4.0 2/1.6(3)253 Mod 3.2*Int(2.5) (4)”xyz”+”438”(5)”abc”&”123”&”abc” (6)349.25+”0.75”=350(7)”china”=”canada” (8)”abc”4 And 5=5 (10)True Or Not 7-3 b Then zjjg = a a = b b = zjjg End If If a c Then zjjg = a a = c c = zjjg End If If

6、 b c Then zjjg = b b = c c = zjjg End If Label1.Caption = 排序结果为： & a & , & b & , & cEnd Sub2清空操作，用于第2次以后的要排序数据的输入Private Sub Command3_Click() Text1.Text = Text2.Text = Text3.Text = Text1.SetFocusEnd Sub3结束操作Private Sub Command2_Click()EndEnd Sub运行后的结果如图3.10所示。图 3.102、制作一个计算器要求：具有计算的基本功能如图主要代码参考：Priv

7、ate Sub Form_Load()t1 = Text2 = t2 = End SubPrivate Sub Command1_Click()If Text2.Text = Then t1.Text = t1.Text + 1 Else t2.Text = t2.Text + 1End IfEnd SubPrivate Sub Command16_Click()Select Case Text2 Case + result = Val(t1.Text) + Val(t2.Text) Case - result = Val(t1.Text) - Val(t2.Text) Case * resu

8、lt = Val(t1.Text) * Val(t2.Text) Case / result = Val(t1.Text) / Val(t2.Text)End SelectText2 = t2 = Text1.Text = resultt1.Text = Text1.TextEnd Sub实验四可视化编程和常用控件实验目的： 掌握复选框、单选钮、列表框和组合框的常用属性、事件及典型的使用方法，熟悉滚动条的数值应用，掌握对话框的设计及使用，掌握图片框、图像框的使用及在使用中二者的区别，能够利用计时器进行动画制作。 实验内容：1、制作一个简单的测试系统如图：要求：可以选择试题的难度，并自己设计难度

9、。并给出的结果给出判断参考代码如下：1 窗体加载Private Sub Form_Load()flag = 0Text1.Text = Text2.Text = Text3.Text = Text4.Text = End Sub2 okPrivate Sub Command1_Click()Dim a As Integer, b As Integera = Val(Text1.Text)b = Val(Text3.Text)Select Case Text2.Text Case + re = a + b Case - re = a - b Case * re = a * b Case / re

10、 = a / bEnd SelectIf re = Val(Text4.Text) ThenMsgBox (good) dimImage1.Picture = LoadPicture(face05.ico)ElseMsgBox (wrong!)Image1.Picture = LoadPicture(face04.ico)End IfEnd Sub3 Start命令：Private Sub Command_start_Click()Text4 = Image1.Picture = LoadPicture(face01.ico)Dim a As Integera = Int(Rnd() * 4)

11、Select Case Combo1.ListIndex Case 2 Text1.Text = Int(Rnd() * 100) If a = 0 Then Text2.Text = * ElseIf a = 1 Then Text2.Text = / ElseIf a = 2 Then Text2.Text = - Else Text2.Text = + End If Text3.Text = Int(Rnd() * 100) Case 1 Text1.Text = Int(Rnd() * 50) If a = 0 Then Text2.Text = * ElseIf a = 1 Then

12、 Text2.Text = / ElseIf a = 2 Then Text2.Text = - Else Text2.Text = + End If Text3.Text = Int(Rnd() * 50) Case Else Text1.Text = Int(Rnd() * 20) If a = 0 Then Text2.Text = - Else Text2.Text = + End If Text3.Text = Int(Rnd() * 20)End SelectText4.SetFocus End Sub2设计一个应用程序，窗体上由1个文本框、1个命令按钮和4个框架组成，界面设计如图

13、4.39所示。图 4.39表4.25 属性设置对象属性设置窗体（名称）Form1CaptionForm1 文本框1（名称）Text1Text欢迎使用Visual Basic框架1（名称）Frame1Caption字体框架2（名称）Frame2Caption大小框架3（名称）Frame3Caption颜色框架4（名称）Frame4Caption字形框架5（名称）Frame5Caption文字效果（名称）Label3单选钮1（名称）Option1Caption宋体单选钮2（名称）Option2Caption隶书单选钮3（名称）Option3Caption幼圆单选钮4（名称）Option4Capti

14、on18点单选钮5（名称）Option5Caption20点单选钮6（名称）Option6Caption22点单选钮7（名称）Option7Caption蓝色单选钮8（名称）Option8Caption红色单选钮9（名称）Option9Caption黄色单选钮10（名称）Option10Caption普通单选钮11（名称）Option11Caption粗体单选钮12（名称）Option12Caption斜体单选钮13（名称）Option13Caption粗斜体复选框1（名称）Check1Caption删除线复选框2（名称）Check2Caption下划线命令按钮1（名称）Command1Cap

15、tion退出参考代码如下：1装载窗体在初始装载窗体时，给出窗口运行的初值Private Sub Form_Load() Option1.Value = True Option4.Value = True Option7.Value = True Option12.Value = TrueEnd Sub2确定文本框中文字的字体Private Sub Option1_Click() If Option1.Value = True Then Text1.FontName = 宋体End SubPrivate Sub Option2_Click() If Option2.Value = True Th

16、en Text1.FontName = 隶书End SubPrivate Sub Option3_Click() If Option3.Value = True Then Text1.FontName = 幼圆End Sub3确定文本框中文字的字号（即字的大小）Private Sub Option4_Click() If Option4.Value = True Then Text1.FontSize = 18End SubPrivate Sub Option5_Click() If Option5.Value = True Then Text1.FontSize = 20End SubPri

17、vate Sub Option6_Click() If Option6.Value = True Then Text1.FontSize = 22End Sub4确定文本框中文字的颜色Private Sub Option7_Click() If Option7.Value = True Then Text1.ForeColor = QBColor(9)End SubPrivate Sub Option8_Click() If Option8.Value = True Then Text1.ForeColor = QBColor(12)End SubPrivate Sub Option9_Cli

18、ck() If Option9.Value = True Then Text1.ForeColor = QBColor(14)End Sub5确定文本框中文字的字形Private Sub Option10_Click() If Option10.Value = True Then Text1.FontBold = False Text1.FontItalic = False End IfEnd SubPrivate Sub Option11_Click() If Option11.Value = True Then Text1.FontBold = True Text1.FontItalic

19、= False End IfEnd SubPrivate Sub Option12_Click() If Option12.Value = True Then Text1.FontBold = False Text1.FontItalic =True End IfEnd SubPrivate Sub Option13_Click() If Option13.Value = True Then Text1.FontBold = True Text1.FontItalic = True End IfEnd Sub6确定文本框中文字的文字效果Private Sub Check1_Click() If

20、 Check1.Value = 1 Then Text1.FontStrikethru = True Else Text1.FontStrikethru = False End IfEnd SubPrivate Sub Check2_Click() If Check2.Value = 1 Then Text1.FontUnderline = True Else Text1.FontUnderline = False End IfEnd Sub7结束操作Private Sub Command1_Click()EndEnd Sub3设计一个简单的报到处理窗体，要求界面如图4.40所示，从文本框中输

21、入学生姓名，在“班级”旁边的组合框中选择其所属班级（提供4种默认班级）。然后将学生姓名和班级添加到列表框中。用户可以删除列表框中所选择的项目，也可以把整个列表框清空。图 4.40表4.26 属性设置对象属性设置窗体（名称）Form1Caption报到名单录入文本框1（名称）Text1Text空白组合框1（名称）Combo1Text空白列表框1（名称）List1List空白标签框1（名称）Label1Caption姓名AutoSizeTrue标签框2（名称）Label2Caption班级AutoSizeTrue标签框3（名称）Label3Caption学生列表AutoSizeTrue命令按钮1（

22、名称）Command1Caption加入列表命令按钮2（名称）Command2Caption删除列表选项命令按钮3（名称）Command3Caption清空列表命令按钮4（名称）Command4Caption退出参考代码如下：1装载窗体在初始装载窗体时，给出组合框的初始值Private Sub Form_Load() Combo1.AddItem 03网络 Combo1.AddItem 03电商 Combo1.AddItem 03计维 Combo1.AddItem 03软件 Combo1.Text = Combo1.List(0)End Sub2将新报到的学生名单加入列表框Private Su

23、b Command1_Click() If (Text1.Text And Combo1.Text ) Then List1.AddItem Text1.Text + + Combo1.Text Else MsgBox 必须输入学生姓名 End IfEnd Sub3根据实际需要，删除选定的列表项Private Sub Command2_Click() List1.RemoveItem List1.ListIndexEnd Sub4删除全部列表项Private Sub Command3_Click() List1.ClearEnd Sub5结束操作Private Sub Command4_Cli

24、ck()EndEnd Sub实验五 对象编程实验目的： 掌握自定义类的方法实验内容：创建一个工程并在其中添加一个类模块Class1和一个窗体Form1，共同实现用户输入的一个字符串的逆转。首先打开一个新的“标准.EXE”工程，建立一个工程名为“工程1”的工程，在“工程”菜单中选中“添加类模块”，插入一个类模块Class1。开始时，该类模块窗口是空白的，我们可以输入相应的类定义代码，如图9.1所示是创建的Class1类模块的代码。图9.1 类Class1创建窗口该类定义了一个全局变量Name和一个过程ReverseName，该过程用于逆转Name指定的字符串。类模块有两个事件：Initializ

25、e和Terminate。从类模块的“对象”下拉列表中，选择“类”便在“过程”列表中显示这2个事件的事件名。一般Initialize事件包含了对象创建时所需的所有代码。Terminate事件包含撤销对象后进行清理的所有代码。本例不设计这两个事件过程。在该工程中添加一个普通的窗体Form1，在其中添加两个标签label1和label2，它们的标题分别为“原来的字符串”和“逆转后字符串”；再添加两个文本框text1和text2；最后添加一个命令按钮command1，其标题为“逆转”，并在该命令按钮上设计如下事件过程：Private Sub Command1_Click() Set myobject

26、= New Class1 myobject.Name = Text1.Text myobject.ReverseName Text2.Text = myobject.NameEnd Sub本窗体的设计屏幕如图9.2所示。启动本工程，出现Form1窗体的屏幕，在文本框text1中输入字符串“”，然后单击“逆转”命令按钮，则文本框text2中出现字符串“”，如图9.3所示。图9.2 Form1窗体设计界面图9.3 Form1窗体执行界面实验六菜单、工具栏和对话框的设计实验目的： 掌握下拉式菜单和弹出式菜单的设计方法，掌握菜单事件过程的编写方法。实验内容：按本章所讲的步骤和方法，设计所要求的菜单系统

27、。1.设计一个菜单程序，在菜单栏中有“程序”和“附件”两个菜单。其中“程序”菜单中有Word、Excel、PowerPoint三个选项。“附件”菜单中含有“画图”和“游戏”两个选项。当用户选择了某个菜单项时，应能启动相应的程序。设计后的界面如图510所示。图510提示：使用函数：Shell( )格式：Shell(“文件名”)功能：执行一个可执行的文件。可带盘符、路径、主文件名、扩展名。例如：编写“程序”菜单中有Word的单击事件的代码：若Word文件的路径是：d:program fileMicrosoft officeofficewinword.exe ，则代码是：Shell (“d:prog

28、ram fileMicrosoft officeofficewinword.exe”)Excel的文件名：Excel.exePowerpoint的文件名：Powerpoint.exe画图的文件名：Mspaint.exe纸牌的文件名：Sol.exe排雷的文件名：Winmine.exe利用查找方式来查找各自文件名的盘符和路径。2.建立一个弹出菜单，含有“红色”、“兰色”、“绿色”三个选项，单击相应的选项后，可以改变文本框中文字的颜色。程序运行的结果如图511所示。图511实验七文件处理实验目的： 掌握驱动器、目录及文件列表框属性、事件和方法，熟练完成三者之间的同步操作，并能实现相应的功能。 实验内

29、容：1模拟一个文件选择窗体，并能完成下列操作。窗体如图66所示。各对象的属性设置如表64所示图66表64 属性设置对象属性设置窗体（名称）Form1Caption文件选择窗体文件列表框（名称）File1目录列表框（名称）Dir1驱动器列表框（名称）Drive1组合框（名称）Combo1List*.* *.vpb *.frmStyle0Text*.*标签框1Caption文件列表框（名称）Label1标签框2Caption文件显示类型（名称）Label2标签框3Caption当前被选择的文件（名称）Label3标签框4Caption空（名称）Label4标签框5Caption目录列表（名称）La

30、bel5标签框6Caption驱动器列表（名称）Label6标签框7Caption当前被搜索目录（名称）Label7标签框8Caption空（名称）Label8命令按钮1Caption复制文件命令按钮2Caption重新明名命令按钮3Caption删除文件命令按钮4Caption结束操作参考代码如下：1.在窗体的“通用”区将choicedfile 定义为窗体级变量,留作后用。Dim choicedfile2.装载窗体在初始装载窗体时，将当前路径显示在标签框中。Private Sub Form_Load()Label8.Caption = Dir1.PathEnd Sub3.确定文件列表框的显示

31、内容Private Sub Combo1_Click()File1.Pattern = Combo1.TextEnd Sub4.保持各文件系统控件的同步Private Sub Drive1_Change()Dir1.Path = Drive1.DriveEnd SubPrivate Sub Dir1_Change()File1.Path = Dir1.PathLabel8.Caption = Dir1.PathEnd Sub5.选择文件名Private Sub File1_Click()Label4.Caption = File1.FileNameIf Right(Dir1.Path, 1)

32、= Thenchoicedfile = Dir1.Path + File1.FileNameElsechoicedfile = Dir1.Path + + File1.FileNameEnd IfEnd Sub6.文件复制Private Sub Command1_Click()Dim sourfile As StringDim destfile As Stringstr2 = 请输入复制的目的文件：sourfile = choicedfiledestfile = InputBox(str2, 复制文件)If destfile Then FileCopy sourfile, destfile F

33、ileCopy 源文件，目标文件End IfEnd Sub7.文件重命名Private Sub Command2_Click()Dim oldname As StringDim newname As StringTitle = 重新命名str0 = 请再输入一遍需要修改的文件名str1 = choicedfile + Chr(10) + Chr(13) + str0str2 = 请输入新文件名oldname = InputBox(str1, Title)msg = 确认被更改的文件名 & oldnamep = MsgBox(msg, 35, 数据检查框)If p = 6 Then newnam

34、e = InputBox(str2, Title) Name oldname As newname Name 旧文件As 新文件 MsgBox 你的新文件名是： + newnameEnd IfEnd Sub8.删除文件 Private Sub Command3_Click()Dim killedfile As Stringkilledfile = choicedfileTitle = 数据检查框msg1 = 你要删除文件: & killedfilex = MsgBox(msg1, 35, Title)If x = 6 ThenKill killedfile Kill 文件名 End IfEnd

35、 Sub9.结束操作Private Sub Command4_Click()EndEnd Sub2 。FSO对象模型编程试编写如图10.2所示的程序，实现新建文件、新建文件夹、写文件的功能，主要练习FSO对象的引用及使用。图10.2FSO对象编程示例步骤：1、设置界面2、文件类型组合框中条目的添加是在程序运行时载入，可通过如下代码来实现Dim sItem As String sItem = 文本文件(*.txt) Combo1.AddItem sItem + Space(20 - Len(sItem) + *.txt sItem = 所有文件(*.*) Combo1.AddItem sItem

36、 + Space(20 - Len(sItem) + *.*Combo1.ListIndex = 0 默认类型为文本文件3、新建文件Dim fName As String fName = InputBox(请输入文件名, 输入) If fName = Then Exit Sub 若文件名为空，退出过程 sPathName = GetDir 调用获取路径自定义函数fso.CreateTextFile (sPathName & fName) 新建文件4、新建文件夹 On Error Resume Next Dim sFolderName As String sFolderName = InputBox(请输入文件夹名, 输入) If sFolderName = Then Exit Sub 若文件夹名为空，退出过程 sPathName = GetDir 调用获取路径自定义函数 新建文件夹 fso.CreateFolder (sPathName & sFolderName)3 二进制文件读写编程序实现将D盘根目录中的文件Abc.dat复制到A盘，且文件名改为Myfile.dat。Dim char As Byte 打开源文件Open D:Abc.dat For Bina