Visual Basic实验指导
前  言
    本课程共安排9个上机实验（44学时），每次实验要求上机之前做好预习及教材上有关内容的复习,对每次上机实验的内容及实验目的要做到心中有数。
    每次实验完成后，都要进行小结并写出实验报告。
实验一    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)                            (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 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
空白
vb计算器代码大全文本框2
（名称）
Text2
Text
空白
文本框3
（名称）
Text3
Text
空白
标签框1
（名称）
Label1
Caption
排序结果为：
命令按钮1
（名称）
Command1
Caption
排序
命令按钮2
（名称）
Command2
Caption
退出
命令按钮3
（名称）
Command3
Caption
清空
参考代码如下：
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

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。