VB实训指导书.doc

Visual Basic实验指导前  言 本课程共安排9个上机实验（36学时），每次实验要求上机之前做好预习及教材上有关内容的复习,对每次上机实验的内容及实验目的要做到心中有数。 每次实验完成后，都要进行小结并写出实验报告。实验一 VB环境和程序设计初步 一、实验目的1、了解VB系统对计算机软硬件的要求。2、掌握启动与退出VB的方法。3、初步掌握菜单栏、工具栏、窗体窗口、工具箱、工程资源管理器窗口和属性窗口的使用。4、掌握建立、编辑、运行一个简单的VB应用程序的全过程。5、掌握常用控件（文本框、标签、命令按钮）的应用。二、实验内容1、 编写一程序，在屏幕上显示”欢迎您使用Visual Basic”，并输入你的名字。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.Text = "欢迎来到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”&”Basic” (6)Not 8>5(7)3<5 And 5>3 (8)True And False(9)5<3 Or 3>5 (10)5>3 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,”$”) (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”<=”abc”&”123”(9)3*4>4 And 5=5 (10)True Or Not 7-3<=4实验三程序基本结构一、实验目的1、掌握逻辑表达式的正确书写形式。2、掌握表达式、赋值语句的正确书写规则。3、掌握单分支与多分支语句的使用。4、掌握For语句的使用。5、掌握DoWhile|Untile.Loop与Do.LoopWhile|Untile两种形式的使用。6、掌握如何控制循环条件，防止死循环或不循环。7、掌握常用函数，如用户交互函数InputBox与MsgBox的使用。二、实验内容1.设计一个应用程序，窗体上有3个文本框、1个标签框和3个命令按钮，界面设计如图3.9所示。当用户运行应用程序后，在文本框中随意输入三个数据，单击“排序”命令按钮后，将三个数据按照从小到大的顺序重新排列。图 3.9表3.8 属性设置对象属性设置窗体（名称）Form1Caption排序文本框1（名称）Text1Text空白文本框2（名称）Text2Text空白文本框3（名称）Text3Text空白标签框1（名称）Label1Caption排序结果为：命令按钮1（名称）Command1Caption排序命令按钮2（名称）Command2Caption退出命令按钮3（名称）Command3Caption清空参考代码如下：1 数据输入后的排序操作Private Sub Command1_Click() Dim a, b, c As Integer Dim zjjg As Integer a = CInt(Text1.Text) b = CInt(Text2.Text) c = CInt(Text3.Text) If a > b Then zjjg = a a = b b = zjjg End If If a > c Then zjjg = a a = c c = zjjg End If If 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、制作一个计算器要求：具有计算的基本功能如图主要代码参考：Private 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 + "1"End 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 "*" result = 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、制作一个简单的测试系统如图：要求：可以选择试题的难度，并自己设计难度。并给出的结果给出判断参考代码如下：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 = a / bEnd SelectIf re = Val(Text4.Text) Then'MsgBox ("good") 'dimImage1.Picture = LoadPicture("face05.ico")Else'MsgBox ("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)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 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个框架组成，界面设计如图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（名称）Option4Caption18点单选钮5（名称）Option5Caption20点单选钮6（名称）Option6Caption22点单选钮7（名称）Option7Caption蓝色单选钮8（名称）Option8Caption红色单选钮9（名称）Option9Caption黄色单选钮10（名称）Option10Caption普通单选钮11（名称）Option11Caption粗体单选钮12（名称）Option12Caption斜体单选钮13（名称）Option13Caption粗斜体复选框1（名称）Check1Caption删除线复选框2（名称）Check2Caption下划线命令按钮1（名称）Command1Caption退出参考代码如下：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 Then 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 SubPrivate 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_Click() 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 = 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 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所示，从文本框中输入学生姓名，在“班级”旁边的组合框中选择其所属班级（提供4种默认班级）。然后将学生姓名和班级添加到列表框中。用户可以删除列表框中所选择的项目，也可以把整个列表框清空。图 4.40表4.26 属性设置对象属性设置窗体（名称）Form1Caption报到名单录入文本框1（名称）Text1Text空白组合框1（名称）Combo1Text空白列表框1（名称）List1List空白标签框1（名称）Label1Caption姓名AutoSizeTrue标签框2（名称）Label2Caption班级AutoSizeTrue标签框3（名称）Label3Caption学生列表AutoSizeTrue命令按钮1（名称）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 Sub 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_Click()EndEnd Sub实验五 对象编程实验目的： 掌握自定义类的方法实验内容：创建一个工程并在其中添加一个类模块Class1和一个窗体Form1，共同实现用户输入的一个字符串的逆转。首先打开一个新的“标准.EXE”工程，建立一个工程名为“工程1”的工程，在“工程”菜单中选中“添加类模块”，插入一个类模块Class1。开始时，该类模块窗口是空白的，我们可以输入相应的类定义代码，如图9.1所示是创建的Class1类模块的代码。图9.1 类Class1创建窗口该类定义了一个全局变量Name和一个过程ReverseName，该过程用于逆转Name指定的字符串。类模块有两个事件：Initialize和Terminate。从类模块的“对象”下拉列表中，选择“类”便在“过程”列表中显示这2个事件的事件名。一般Initialize事件包含了对象创建时所需的所有代码。Terminate事件包含撤销对象后进行清理的所有代码。本例不设计这两个事件过程。在该工程中添加一个普通的窗体Form1，在其中添加两个标签label1和label2，它们的标题分别为“原来的字符串”和“逆转后字符串”；再添加两个文本框text1和text2；最后添加一个命令按钮command1，其标题为“逆转”，并在该命令按钮上设计如下事件过程：Private Sub Command1_Click() Set myobject = 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窗体执行界面实验六菜单、工具栏和对话框的设计实验目的： 掌握下拉式菜单和弹出式菜单的设计方法，掌握菜单事件过程的编写方法。实验内容：按本章所讲的步骤和方法，设计所要求的菜单系统。1.设计一个菜单程序，在菜单栏中有“程序”和“附件”两个菜单。其中“程序”菜单中有Word、Excel、PowerPoint三个选项。“附件”菜单中含有“画图”和“游戏”两个选项。当用户选择了某个菜单项时，应能启动相应的程序。设计后的界面如图510所示。图510提示：使用函数：Shell( )格式：Shell(“文件名”)功能：执行一个可执行的文件。可带盘符、路径、主文件名、扩展名。例如：编写“程序”菜单中有Word的单击事件的代码：若Word文件的路径是：d:program fileMicrosoft officeofficewinword.exe ，则代码是：Shell (“d:program fileMicrosoft officeofficewinword.exe”)Excel的文件名：Excel.exePowerpoint的文件名：Powerpoint.exe画图的文件名：Mspaint.exe纸牌的文件名：Sol.exe排雷的文件名：Winmine.exe利用查找方式来查找各自文件名的盘符和路径。2.建立一个弹出菜单，含有“红色”、“兰色”、“绿色”三个选项，单击相应的选项后，可以改变文本框中文字的颜色。程序运行的结果如图511所示。图511实验七文件处理实验目的： 掌握驱动器、目录及文件列表框属性、事件和方法，熟练完成三者之间的同步操作，并能实现相应的功能。 实验内容：1模拟一个文件选择窗体，并能完成下列操作。窗体如图66所示。各对象的属性设置如表64所示图66表64 属性设置对象属性设置窗体（名称）Form1Caption文件选择窗体文件列表框（名称）File1目录列表框（名称）Dir1驱动器列表框（名称）Drive1组合框（名称）Combo1List*.* *.vpb *.frmStyle0Text*.*标签框1Caption文件列表框（名称）Label1标签框2Caption文件显示类型（名称）Label2标签框3Caption当前被选择的文件（名称）Label3标签框4Caption空（名称）Label4标签框5Caption目录列表（名称）Label5标签框6Caption驱动器列表（名称）Label6标签框7Caption当前被搜索目录（名称）Label7标签框8Caption空（名称）Label8命令按钮1Caption复制文件命令按钮2Caption重新明名命令按钮3Caption删除文件命令按钮4Caption结束操作参考代码如下：1.在窗体的“通用”区将choicedfile 定义为窗体级变量,留作后用。Dim choicedfile2.装载窗体在初始装载窗体时，将当前路径显示在标签框中。Private Sub Form_Load()Label8.Caption = Dir1.PathEnd Sub3.确定文件列表框的显示内容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) = "" 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 FileCopy 源文件，目标文件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 newname = 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 Sub9.结束操作Private Sub Command4_Click()EndEnd Sub····················2 。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 + 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