VB实训指导书

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 Sub

Private Sub Form_Load()

Text1.Text = ""

End Sub

2、设计一程序程序，运行结果如下：

附：主要代码：

Private Sub cmdClear_Click()

txtDisplay.Text = ""

End Sub

Private Sub cmdExit_Click()

End

End Sub

Private 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,”Visual

Basic

6.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 属性设置

对象属性设置

窗体（名称）Form1

Caption 排序

文本框1 （名称）Text1

Text 空白

文本框2 （名称）Text2

Text 空白

文本框3 （名称）Text3

Text 空白

标签框1 （名称）Label1

Caption 排序结果为：命令按钮1 （名称）Command1

Caption 排序命令按钮2 （名称）Command2

Caption 退出命令按钮3 （名称）Command3

Caption 清空参考代码如下：

1．数据输入后的排序操作