VB上机指导书

1、VB6.0程序设计上机实验指导实验一 熟悉VB集成开发环境及简单应用程序的建立一、实验目的1掌握VB6.0的启动与退出2了解VB6.0的集成开发环境，熟练掌握各主要窗口的使用3VB60应用程序的开发过程4了解VB6.0联机帮助的使用二、实验内容建立一个VB应用程序：计算圆面积。三、实验步骤1启动VB启动VB可采用下面两种方法：（1）“开始”菜单“程序”“Microsoft Visual Studio 6.0中文版”子菜单“Microsoft Visual Studio 6.0中文版”程序（2）双击桌面上VB的快捷方式图标启动VB6.0后，会显示如图1-1所示一个“新建工程”对话框。图1-1 启

2、动VB6.02新建一个工程要建立一个新的工程，选择“新建”选项卡，从中选择“标准EXE”项(默认)然后单击“打开”按钮，进入如图1-2所示的VB6.0应用程序集成开发环境，屏幕上出现一个默认的“Forml”窗体。图1-3 VB6.0应用程序集成开发环境3界面设计 双击工具箱上的命令按钮（CommandButton），在窗体中出现一个带有“Command1”字样的命令图形对象，用鼠标把它拖到窗体的合适位置；用同样的方法再建立一个命令按钮“Command2”，并把它放到窗体的合适位置。4.属性设置为了明确应用程序的功能，一般需要修改控件的属性。首先，从屏幕右边的属性窗口中打开Form1的属性列表，

3、找到Caption属性栏，把其值由“Form1”改为“计算圆面积”，按回车确认，窗体标题随之改变，如图1-3所示。然后，从属性窗口中打开命令按钮Command1的属性列表，将其名称属性设为Cmdstart，找到Caption属性栏，把其值改为“开始”，用同样的方法，把命令按钮Command2的名称属性设为Cmdend，Caption值改为“结束”，用户界面设计完成如图1-3所示。图1-3 设计界面5编写代码计算圆面积的计算公式是S=R2,其中，表示圆周率（这里取值为3.14），R为半径，S为圆面积，根据计算公式，编写如下代码：（1）双击“开始”按钮，打开代码窗口，如图1-4所示，然后输入如下代

4、码：Private Sub Cmdstart_Click()Dim s, rr = InputBox("请输入圆半径：")s = 3.14 * r * rPrintPrint "半径为" r; "面积为" sEnd Sub（2）在代码窗口的对象列表框中选择对象“Cmdend”；在过程列表框中选择事件Click(如图1-4)，然后输入如下代码：Private Sub Cmdend_Click()EndEnd Sub图1-4 代码窗口6运行程序运行VB程序有3种方法：（1）单击工具栏中“启动”按钮（2）按F5键（3）单击菜单栏的“运行”，

5、并从子菜单中选择“启动”命令关闭代码窗口，用鼠标单击工具栏中启动按钮。此时，程序开始运行，并出现图1-5画面，单击“开始”按钮，出现如图1-6所示的对话框，输入数据如2后，单击“确定”按钮，程序继续执行，输出结果如图1-7所示。单击“结束”按钮，结束程序的执行。图1-7 输出结果窗口7保存文件选择“文件”“保存工程”菜单命令，或单击工具栏中的“保存工程”按钮。不管是哪一种，对于新程序，系统都会要求给定存放的路径和文件名，并分别保存窗体文件和工程文件。因此在弹出的文件另存为对话框中提示保存窗体文件，如将窗体文件保存在E盘的VBSY文件夹下并起名为Vbsy1_1frm，此时，系统会继续提示保存工程

6、文件，将工程文件也保存在E盘的VBSY文件夹下并起名为Vbsyl_1vbp。8退出VB退出VB开发环境可以采用以下方法：（1）“文件”菜单“退出”命令（2） 按Alt+Q组合键（3） 单击主窗口右上角“关闭”窗口按钮四、联机帮助1使用“MSDN Library在线帮助” 在运行VB6.0时，使用“MSDN Library在线帮助”是寻求帮助的常用方法，操作步骤：（1） 启动VB6.0，选择菜单栏上“帮助”菜单的“内容”命令，系统打开“MSDN Library Visual Studio6.0”对话框（2） 在“活动子集”的下拉框中选择“Visual Basic文档”，然后单击“目录”选项（3）

7、 单击“MSDN Library Visual Studio6.0”目录前面的“+”号，展开“MSDN Library Visual Studio6.0”目录（4） 单击“Visual Basic文档”目录前面的“+”号，展开“使用Visual Basic”目录（5） 单击“程序员指南”目录前面的“+”号，展开“程序员指南”因为MSDN内容太多，占硬盘空间，很多机房不装MSDN，所以，上机时可能看不到。2使用“上下文相关帮助”使用“上下文相关帮助”，可以不必使用“帮助”菜单就能获得“工具箱”中的控件、“属性”窗口中的属性、应用程序中的关键字等内容的帮助。操作方法是把光标移到（或选取）希望获得帮

8、助的位置，然后按F1功能键，VB会自动弹出相关主题的帮助。获得“工具箱”中控件帮助的操作步骤为：（1） 把光标移到“工具箱”中需要获得帮助的控件处，并单击（2） 按F1功能键获得“属性”窗口中属性帮助的操作步骤为：（1） 把光标移到“属性”窗口中需要获得帮助的属性处，并单击（2） 按F1功能键获得应用程序中关键字帮助的操作步骤为：（1） 把光标移到应用程序中需要获得帮助的关键字处，并单击（2） 按F1功能键实验二 Visual Basic语言基础一、实验目的1掌握Visual Basic的数据类型和变量定义方法2正确使用Visual Basic的运算符和表达式3掌握Visual Basic中数

9、据输入、输出的方法4掌握Visual Basic常用函数的使用方法5学会用赋值语句构造简单的顺序结构程序二、实验内容1.利用下列式子测试各种运算符的功能 （1）204.5 (2) 55 mod 2 (3) 63 (4) 3(-1/2) (5) “How ” & ”are you” (6) not 3>2 (7) 3<5 and 6>3 （8）true and false (9) 7>4 or 3<1 (10) 9<10 or true2利用下列函数测试常用标准函数的功能（1）int (-354.5324) (2) fix(354.5324) (3)v

10、al(“34.56”) (4) abs(-123) (5)sgn(200) (6) sqr(81) (7) left(“how are you”,3) （8）mid(“how are you”,8,5) 3.利用下列表达式测试表达式中运算符的运算顺序和求表达式的值（1）（5+4）2 (2) 214*2.02/1.3 (3) 273 mod 3.2*int(2.5) (4) “abc”+”234” (5) “How ” & ”123” & ”you” (6) 123.25+”0.75”=124 (7) “china”>=”Canada” （8）”xyz” <=”xyz

11、”&”123” (9) 5*4>4 and 5=5 (10) false or not 7-3<=4要求：先手动求出各式的值，然后在立即窗口中计算和输出各式的值。实验步骤：在立即窗口中计算和输出各式值的操作步骤为：（1）启动VB6.0，进入集成开发环境，屏幕显示“新建工程”对话框（2）单击“打开”按钮，进入设计模式，选择菜单栏上“视图”菜单中“立即窗口”命令执行。（3）在立即窗口中使用print方法计算和输出题中各式的值（print可以用？代替） 4.上机实现自动变量与静态变量的区别 三、实验步骤（1）建立新工程 （2）界面设计。在窗体上设计两个命令按钮Command1和C

12、ommand2 （3）属性设置把窗体Form1的Caption属性的值设置为“自动变量与静态变量的区别”把命令按钮Command1的Caption属性的值设为“自动变量”把命令按钮Command2的Caption属性的值设为“静态变量” （4）编写代码a、双击“自动变量”按钮，打开代码窗口，输入如下代码：Private Sub Command1_Click()Dim x As Integerx = x + 1Print x; ""End Subb、在代码窗口的对象列表框中选择对象“Command2”；在过程列表框中选择事件Click，然后输入如下代码：Private Sub

13、 Command2_Click()Static y As IntegerIf y = 0 Then Printy = y + 1Print y; ""End Sub（5）运行程序关闭代码窗口，用鼠标单击工具栏中启动按钮。此时，程序开始运行，并出现图2-1画面，单击“自动变量”按钮，输出结果如图2-2上排所示，单击“静态变量”按钮，输出结果如图2-2下排所示。 图2-1 程序运行界面 图2-2程序运行结果（6）保存文件（7）退出VB实验三 顺序结构程序设计 一、实验目的1、掌握Visual Basic语言中数据输入方法。2、掌握Visual Basic语言中数据输出方法。3、

14、正确使用Visual Basic赋值语句。4、学会设计简单的顺序结构程序。二、实验内容赋值语句练习，在窗体Form1内创建两个文本框，通过事件过程执行赋值操作。三、实验步骤1、 首先设计界面在窗体上添加两个文本框Text1和Text2，添加命令按钮Command1和Command2，设置各个控件的属性如表所示，并把它们调整到合适的位置、大小。设计完成后的界面如图3-1所示。图3-1 设计界面2、 编写事件过程。添加命令按钮Command1的事件过程如下：Private Sub Command1_Click() Command1.Caption = "上按钮" Text1.T

15、ext = "你好！"End Sub添加命令按钮Command2的事件过程如下：Private Sub Command2_Click()Command2.Caption = "下按钮"Text2.Text = "好好学习，天天向上！"End Sub3、 保存和运行程序。单击工具栏的 “启动”按钮，或者从“运行”菜单选取“启动”命令。屏幕出现运行界面。单击Command1，看到如图3-2所示的运行结果，再单击Command2，看到如图3-3的运行结果。 图3-2 程序运行结果 图3-3 程序运行结果实验四 选择结构程序设计一、实验目的1

16、、掌握逻辑表达式的正确书写形式。2、学会单分支和双分支结构程序的使用。3、学会多分支条件语句的使用。4、掌握情况语句的使用，弄清楚情况语句和多分支条件语句的区别。二、实验内容输入一个数，判断这个数的奇偶性。三、实验步骤1、新建工程2、界面设计，在窗体上添加一命令按钮Command1，修改其Caption属性值为“奇偶数判断”。3、编写代码Private Sub command1_click()Dim a As IntegerA = InputBox(”输入一个数“) If a mod 2 = 1 ThenMsgBox a & ”是奇数”     

17、 Else    MsgBox a & ”是偶数”             End lf                             

18、60;        End Sub4、运行程序单击Commandl按钮，在弹出的对话框中输入32，单击“确定”按钮，消息框提示32是偶数，如图4-1所示。图4-1 程序运行结果实验五 循环结构程序设计一、实验目的1、掌握For语句的使用。  2、掌握Do WhileUntilLoop与Doloop WhileUntil两种循环语句的使用。3、加深理解循环的概念，掌握循环的规则及其执行过程。4、掌握多重循环的规则和程序设计方法。6、学会如何控制循环条件，防止死循环或不循环。二、实验内容求e = 1+11!

19、+12!+13!+14!+求e的近似值，使精度达到10-5。三、实验步骤1、设计界面 在窗体上添加一个标签、一个文本框和一个命令按钮。 2、设置属性表5-1 属性设置对象属性属性值Label1Captione的近似值：Text1Text Command1Caption求e的近似值窗体中各个控件的属性设置按照表5-1进行设置，属性设置后的界面如图5-1所示。图5-1 设计界面3、编写代码Private Sub Command2_Click()Dim Sum As Double Dim t As Double Dim i As Integer Sum = 1 t = 1For i = 1

20、 To 100t = t / iSum = Sum + tIf t < 0.00001 Then Exit ForEnd IfNext iText1.Text = SumEnd Sub4、程序运行运行程序，单击“求e的近似值”按钮，在文本框中显示结果。运行界面如图5-2所示。图5-2 运行结果二、实验内容利用随机数函数模拟投币，方法是：每次随机产生一个0或1的整数，相当于一次投币，1代表正面，0代表反面。要求： 在窗体上有三个文本框，名称分别是Text1、Text2、Text3，分别用于显示用户输入投币总次数、出现正面的次数和出现反面的次数。随机产生0或1的整数的表达式为：Int(Rnd

21、*2)。三、实验步骤1、设计界面 在窗体上添加三个标签、三个文本框和一个命令按钮。 2、设置属性表5-1 属性设置对象属性属性值Label1Caption投币总次数Label2Caption正面次数Label3Caption反面次数Text1Text Text2Text Text3Text Command1Caption开始窗体中各个控件的属性设置按照表5-1进行设置，属性设置后的界面如图5-1所示。图5-1设计界面3、编写代码Private Sub Command1_Click()Randomizen = Val(Text1.Text)n1 = 0n2 = 0F

22、or i = 1 To nr = Int(Rnd * 2)If r = 1 Thenn1 = n1 + 1Elsen2 = n2 + 1End IfNextText2.Text = n1Text3.Text = n2End Sub 4、运行程序运行程序，在文本框Text1中输入总次数，然后单击“开始”按钮，按照输入的次数模拟投币，分别统计出现正面、反面的次数，并显示结果。运行界面如图5-2所示。图5-2 程序运行结果实验六 数组一、实验目的1、掌握一维数组、二维数组的概念、声明及数组元素的引用2、掌握一维数组、二维数组的输入与输出3、学会利用数组解决一些较为复杂的问题二、实验内容请编写一个程序

23、，使用随机数产生10个1100之间的随机整数存放在一维数组a中，并把该数组元素显示在一个文本框中。然后在数组a中的指定位置插入一个指定值，并将插入值之后的数组a的所有元素显示在另一个文本框中。三、 实验步骤1设计界面在窗体上添加两个标签、四个文本框和两个命令按钮。 2设置属性表6-1 属性设置控件名称（Name）属性属性值标签Label1Caption位置标签Label2Caption数据文本框Text1Text文本框Text2Text文本框Text3Text命令按钮Command1Caption产生命令按钮Command2Caption插入窗体中各个控件的属性设置按照表6-1进行设

24、置，属性设置后的界面如图6-1所示。图6-1 设计界面3、编写代码Dim a() As Integer, n As IntegerPrivate Sub Command1_Click()Text1.Text = ""n = Val(InputBox("输入要产生几个数")ReDim a(n)RandomizeFor i = 1 To n a(i) = Int(Rnd * 100) + 1 Text1.Text = Text1.Text & a(i) & "," Next iEnd SubPrivate Sub Comm

25、and2_Click()Text3.Text = ""Dim num As Integer, p As Integernum = Val(Text4.Text): p = Val(Text2.Text)ReDim Preserve a(n + 1)For i = n + 1 To p + 1 Step -1 a(i) = a(i - 1) Next i a(p) = num For i = 1 To n + 1 Text3.Text = Text3.Text & a(i) & "," Next iEnd Sub4、程序运行运行程序后，先单

26、击“产生”命令按钮，在第一个文本框中输出一维数组a，然后分别在位置和数据对应的文本框中输入要插入的位置和插入数据，单击“插入”命令按钮，插入后的数组a中的所有元素将在最后一个文本框中显示，程序运行结果如图6-2所示。图6-2 程序运行结果实验七 过程和函数一、实验目的1、掌握子过程的定义和调用方法2、掌握子过程和函数过程的异同3、掌握变量、函数和过程的作用域4、了解递归概念和使用方法二、实验内容编写计算阶乘的函数过程与子过程，利用下列近似公式计算ex = 1+x1!+x22!+x33!+x44!+xnn!，直到最后一项小于10-7为止。三、实验步骤1、设计界面在窗体上添加两个标签、两个文本框和

27、两个命令按钮。 2设置属性表7-1 属性设置控件名称（Name）属性属性值标签Label1Caption子过程求e标签Label2Caption函数求e标签Label3Captionx的值文本框Text1Text文本框Text2Text文本框Text3Text命令按钮Command1Caption子过程命令按钮Command2Caption函数窗体中各个控件的属性设置按照表7-1进行设置，属性设置后的界面如图7-1所示。图7-1 设计界面 3、编写代码 Private Function fact(x!)Dim p!p = 1For n = 1 To x p = p * n Next

28、fact = pEnd FunctionPrivate Sub Command1_Click()Dim n!, x!, k!, mx = InputBox("x=")s = 1: n = 1: t = 1: k = 1Do k = k * x: fact1 n, m: t = k / m s = s + t: n = n + 1 Loop While t >= 10 -7 Text1.Text = sEnd SubPrivate Sub Command2_Click()Dim n!, x!, k!x = InputBox("x=")s = 1: n

29、 = 1: t = 1: k = 1Do k = k * x: t = k / fact(n) s = s + t: n = n + 1 Loop While t >= 10 -7 Text2.Text = sEnd Sub4、程序运行 运行程序后，在x的值对应的文本框中输入x，单击“子过程”命令按钮，结果显示在第一个文本框中，单击“函数”命令按钮，结果在第二个文本框中显示，程序运行结果如图7-2所示。图7-2 程序运行结果实验八 窗体一、实验目的1、掌握VB6.0窗体的常用属性、常用事件和重要方法2、掌握在Visual Basic60窗体上生成控件的方法3、掌握设置启动窗体的方法4、学

30、会添加多个窗体二、实验内容创建一个工程，由3个窗体组成。Form1用于输入用户名和口令，当输入正确时单击“确定”按钮显示Form2，当输入出错时则显示Form3，单击“退出”按钮结束程序；Form2中用文本框显示系统信息，单击“返回”按钮回到Form1；Form3为退出窗体，单击窗体则结束程序。三、实验步骤 1、创建3个窗体。 创建一个工程后，会出现默认窗体Form1，选择“工程”菜单的“添加窗体”命令，添加两个窗体，窗体的名称按添加顺序分别为Form2和Form3。 2、设置启动窗体本程序的启动窗体是Form1，设置启动窗体的步骤：(1) 选择“工程”菜单的“工程1属性”命令(2) 在弹出的

31、对话框中选择“通用”选项卡(3) 单击“启动对象”列表框的下拉箭头，从中选择“Form1”，如图8-1所示(4) 单击“确定”按钮 图8-1 工程属性3、界面设计 （1）窗体Form1有3个标签，两个文本框，两个命令按钮 （2）窗体Form2有1个标签，一个文本框和一个命令按钮 （3）窗体Form3有1个标签4、设置属性 表8-1 属性设置窗体名控件名称（Name）属性属性值Form1标签Label1Caption欢迎使用本系统Font宋体，小三，粗体标签Label2Caption请输入用户名标签Label3Caption请输入口令PasswordChar*文本框Text1Text文本框Tex

32、t2Text命令按钮Command1Caption确定命令按钮Command2Caption退出Form2标签Label1Caption系统信息：文本框Text1TextMultilineTrueLockedTrueScrollbars2-Vertical命令按钮Command1Caption返回Form3窗体Form3Picture图形文件标签Label1Caption谢谢使用！BackStyle0-Transparent窗体中各个控件的属性设置按照表8-1进行设置，属性设置后的界面分别如图8-2、8-3、8-4所示。图8-2 Form1界面设计 图8-3 Form2界面设计图8-4 For

33、m3界面设计5、编写代码 在窗体Form 1的文本框输入用户名和口令，单击确定按钮，当用户名为“lx”并且口令为”1234”显示窗体Form 2，否则显示窗体Form 3.单击“退出”按钮结束程序，代码编写如下： Private Sub Command1_Click() If Text1.Text = "lx" And Text2.Text = "1234" Then Form2.Show Else Form3.Show End If Form1.HideEnd SubPrivate Sub Command2_Click()EndEnd Sub 在窗体F

34、orm 2中单击“返回”按钮，卸载Form2并显示Form1，代码如下：Private Sub Command1_Click()Form1.ShowUnload MeEnd Sub 在Form3中显示图片，在Form3中单击窗体，卸载Form3，代码如下：Private Sub Form_Click()Unload MeEndEnd Sub6、保存和运行 单击“文件”菜单，选择“保存工程”命令来保存工程和窗体Form1、Form2、Form3。实验九 单选按钮、复选框和框架一、实验目的1、掌握单选按钮、复选框和框架的常用属性、常用事件和重要方法2、熟练掌握在Visual Basic60窗体上建

35、立3种控件的方法3、熟练掌握事件过程代码的编写二、实验内容 1、创建一个工程，由一个窗体组成，界面设计如图9-1所示。 要求：当用户在此两级不同的单选按钮和一组复选框上做出选择后，文本框中正文的字体、字号和风格发生相应的变化。三、实验步骤 1、创建用户界面在窗体上创建一个文本框控件、三个框架控件，框架1和框架3中各包括两个单选按钮，框架2包括两个复选框。图9-1 设计界面 2、设置属性窗体对象的属性设置如表9-1所示。表9-1属性设置对象名称（Name）属性属性值窗体Form1Caption单选按钮、复选框和框架文本框Text1TextMultilineTrueScrollbars3框架Fra

36、me1Caption字号框架Frame2Caption风格框架Frame3Caption字体单选按钮Option1Caption18单选按钮Option2Caption24单选按钮Option3Caption宋体单选按钮Option4Caption黑体复选框Check1Caption粗体复选框Check2Caption斜体 3、编写代码打开代码窗口，输入以下程序：Private Sub Check1_Click()If Check1.Value = 1 Then Text1.FontBold = True Else Text1.FontBold = False End IfEnd SubPri

37、vate Sub Check2_Click()If Check2.Value = 1 Then Text1.FontItalic = True Else Text1.FontItalic = False End IfEnd SubPrivate Sub Option1_Click()Text1.FontSize = Option1.CaptionEnd SubPrivate Sub Option2_Click()Text1.FontSize = Option2.CaptionEnd SubPrivate Sub Option3_Click()Text1.Font = Option3.Capti

38、onEnd SubPrivate Sub Option4_Click()Text1.Font = Option4.CaptionEnd Sub4、保存和运行单击“文件”菜单，选择“保存工程”命令。运行程序时呈现如图9-2所示界面，输入一行文字后，任意选择界面上的单选按钮和复选框，就可以看到字体、字号和风格的变化。图9-2 程序运行结果实验十 列表框、组合框和滚动条一、实验目的1、掌握列表框、组合框和滚动条的常用属性、常用事件和重要方法2、熟练掌握在Visual Basic60窗体上建立3种控件的方法3、熟练掌握事件过程代码的编写二、实验内容 1、设计一个界面，输入学生德、智、体3方面的学生考评

39、结果。界面设计如图10-1所示。三、实验步骤 1、创建用户界面在窗体上创建四个标签、一个文本框、三个组合框和一个框架。图10-1 设计界面2、属性设置窗体对象的属性设置如表10-1所示。表10-1属性设置对象名称（Name）属性属性值标签Lable1Caption姓名标签Lable2Caption德育标签Lable3Caption智育标签Lable4Caption体育文本框Text1Text框架Frame1Caption输入学生考评结果 3、编写代码Private Sub Form_Load()Combo1.AddItem "优"Combo1.AddItem "良

40、"Combo1.AddItem "一般"Combo1.AddItem "差"Combo2.AddItem "优"Combo2.AddItem "良"Combo2.AddItem "一般"Combo2.AddItem "差"Combo3.AddItem "优"Combo3.AddItem "良"Combo3.AddItem "一般"Combo3.AddItem "差"End Sub4、保存

41、和运行程序单击“文件”菜单，选择“保存工程”命令。运行本程序，在“姓名”文本框中输入“张三”，在3个组合框中分别选择对应的考评结果，如分别为：“优”、“良”、“一般”，运行结果如图10-2所示。图10-2 程序运行结果实验十一 文件系统控件一、实验目的1、掌握驱动器列表控件、目录列表控件和文件列表框控件的属性2、熟练掌握在Visual Basic60窗体上建立3种控件的方法3、熟练掌握事件过程代码的编写二、实验内容 设计一个界面，将3个文件系统控件组合起来使用，创建一个文件选择对话框，实现三个控件的同步，在文件列表框中显示指定类型的文件。界面设计如图11-1所示。图11-1 设计界面三、实验步

42、骤1、创建用户界面在窗体上添加4个标签、1个驱动器列表框、1个目录列表框、1个文件列表框和1个组合框。2、属性设置窗体对象的属性设置如表11-1所示。表11-1属性设置对象名称（Name）属性属性值标签Lable1Caption驱动器列表框标签Lable2Caption目录列表框标签Lable3Caption文件列表框标签Lable4Caption文件类型3、编写代码 Private Sub Combo1_Click() File1.Pattern = Mid(Combo1.Text, 8, 5)End SubPrivate Sub Dir1_Change() File1.Path = Dir1.PathEnd SubPrivate Sub Drive1_Change() Dir1.Path = Drive1.DriveEnd SubPrivate Sub Form_Load() Item = "所有文件" Combo1.AddItem