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)5.4\10 (2)299Mod (3)35∧(4))2/1(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 False 2、利用下列函数测试常用标准函数的功能。
(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,”VisualBasic6.0”,”Basic ”)(11)String(3,”$”)(12)Int((100*Rnd)+1)3、利用下列表达式测试表达式中运算符的运算顺序和求表达式的值。
(1)(3+6)\2(2)18\4*4.0^2/1.6(3)25\3 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、掌握Do{While|Untile}...Loop与Do...Loop{While|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 IntegerDim zjjg As Integera = CInt(Text1.Text)b = CInt(Text2.Text)c = CInt(Text3.Text)If a > b Thenzjjg = aa = bb = zjjgEnd IfIf a > c Thenzjjg = aa = cc = zjjgEnd IfIf b > c Thenzjjg = bb = cc = zjjgEnd IfLabel1.Caption = "排序结果为：" & a & "," & b & "," & c End 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 = "" Thent1.Text = t1.Text + "1"Elset2.Text = t2.Text + "1"End IfEnd SubPrivate Sub Command16_Click()Select Case Text2Case "+"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)Text2 = ""t2 = ""Text1.Text = resultt1.Text = Text1.TextEnd Sub实验四可视化编程和常用控件实验目的：掌握复选框、单选钮、列表框和组合框的常用属性、事件及典型的使用方法，熟悉滚动条的数值应用，掌握对话框的设计及使用，掌握图片框、图像框的使用及在使用中二者的区别，能够利用计时器进行动画制作。
实验内容：1、制作一个简单的测试系统如图：要求：可以选择试题的难度，并自己设计难度。
并给出的结果给出判断参考代码如下：1 窗体加载Private Sub Form_Load()flag = 0Text1.Text = ""Text2.Text = ""Text3.Text = ""Text4.Text = ""2 okPrivate Sub Command1_Click()Dim a As Integer, b As Integera = Val(Text1.Text)b = Val(Text3.Text)Select Case Text2.TextCase "+"re = a + bCase "-"re = a - bCase "*"re = a * bCase "/"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.ListIndexCase 2Text1.Text = Int(Rnd() * 100)If a = 0 ThenText2.Text = "*"ElseIf a = 1 ThenText2.Text = "/"ElseIf a = 2 ThenText2.Text = "-"ElseText2.Text = "+"End IfText3.Text = Int(Rnd() * 100)Case 1Text1.Text = Int(Rnd() * 50)If a = 0 ThenText2.Text = "*"ElseIf a = 1 ThenText2.Text = "/"ElseIf a = 2 ThenText2.Text = "-"ElseText2.Text = "+"End IfText3.Text = Int(Rnd() * 50)Case ElseText1.Text = Int(Rnd() * 20)If a = 0 ThenText2.Text = "-"ElseText2.Text = "+"End IfText3.Text = Int(Rnd() * 20)End SelectText4.SetFocusEnd Sub2．设计一个应用程序，窗体上由1个文本框、1个命令按钮和4个框架组成，界面设计如图4.39所示。