= True
Else
= False
End If
If = 1 Then
= True
Else
= False
End If
End Sub
实验四循环程序设计
一．实验目的：
1．理解循环程序设计的特点。
2．掌握常用的循环语句。
3．掌握常用的循环算法。
4．掌握图片框、图像框和计时器。
二．实验内容：
1．求
2．设计一条滚动的广告字幕。
a(i)
Next i
End Sub
3．单击命令按钮，在文本框中显示结果信息，则程序代码是什么？
Private Sub Command1_Click()
Dim i As Integer, max%, min%, avg!
max = a(1)
min = a(1)
avg = 0
For i = 1 To 10
Private Sub Form_Load()
Dim k%, s!
s = 0
For k = 1 To 100
s = s + 1 / k
Next k
For k = 1 To 50
s = s + k
Next k
Print s
End Sub
2．滚动字幕的触发时钟控件的程序代码是什么？。
Private Sub Timer1_Timer()
= a + b
Case“-”
= a - b
Case“*”
= a * b
Case“/”
If b = 0 Then
MsgBox“除数为0.”
Else
= a / b
End If
End Select
End Sub
2.模拟简易计算器Command2命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
1．结果要求单击命令按钮分别显示，设置对象的属性。
对象
属性
属性值
说明
Label1
caption
m
标签
Label2
caption
n
标签
Label3
caption
最大公约数
标签
Label4
caption
最小公倍数
标签
Text1-Text4
text
?”“
文本框
Command1
caption
子过程
命令按钮
Command2
If max < a(i) Then max = a(i)
If min > a(i) Then min = a(i)
avg = avg + a(i)
Next i
avg = avg / 10
= max
= min
= avg
End Sub
实验六 过程程序设计
一．实验目的：
1．掌握子过程的定义和调用方法。
2．掌握函数过程的定义和调用方法。
Msgbox“对应的摄氏温度为：”& C
End Sub
2.用三种除法运算（/ 、\、Mod）做计算，说明三种除法的区别？
/：两个数相除
\：两个数整除
Mod：两个数相除，得余数
3.三种除法运算（/ 、\、Mod）做计算，Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Label5
Caption
余数除
标签
Command1
Caption
执行除法运算
命令按钮
四．实验思考：
1.温度转换中的Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim C!,F!
F=val(inputbox(“输入华氏温度”))
C=5/9*（F-32）
Dim m As Integer, n As Integer, r As Integer
m =
n =
If m < n Then
t = m: m = n: n = t
End If
Call gys(m, n, r)
= r
End Sub
Private Sub gys(ByVal m%, ByVal n%, r%)
二．实验内容：
1.设计一个模拟简易计算器的程序，界面如图3-1所示。要求： 输入两个操作数和一个操作符，根据操作符决定所进行的计算； 如果除数为0，用msgbox提示出错信息； 用if语句和selecet case语句两种结构实现。
2.通过单选按钮和复选框控制文字的显示，程序窗口如图3-2所示。
图3-1
=“请输入姓名”
=24
=True
2.两个按钮所使用的是什么事件？代码分别是什么？
Private Sub Command1_Click()
=“姓名”
End Sub
Private Sub Command2_Click()
=型及常用内部函数的简单应用
一．实验目的：
5.了解文本框、标签框、命令按钮的构造及其属性、事件和方法。
二．实验内容：
1．设计一个简单的应用程序，要求在窗体上画一个文本框、一个标签和两个命令按钮编一程序，并把命令按钮分别设置为”显示”和”清除”。程序运行后，单击”显示”按钮，在文本框中输出一行信息；单击”清除”按钮，则清除文本框中的内容，运行界面如图所示。
caption
函数过程
命令按钮
2．设置滚动条主要属性值。
对象
属性
属性值
说明
HScroll1-HScroll3
min
0
滚动条
HScroll1-HScroll3
max
255
滚动条
四．实验思考：
1．单击子过程命令按钮，在文本框Text3中显示结果信息，子过程的程序代码是什么？
Private Sub Command1_Click()
三．实验结果：对象属性设置
1．求和结果要求窗体载入时直接显示，设置窗体的某个属性。
对象
属性
属性值
说明
Form1
AutoRedraw
True
窗体
2．滚动字幕。
对象
属性
属性值
说明
Label1
Caption
“欢迎使用VB”
标签
Timer1
Interval
1000
时钟
四．实验思考：
1．求和的窗体载入事件的程序代码是什么？
=“黑体”
Else
=“楷体_GB2312”
End If
If = True Then
= 24
ElseIf = True Then
= 16
Else
= 8
End If
If = 1 Then
= True
Else
= False
End If
If = 1 Then
= True
Else
= False
End If
If = 1 Then
下划线
复选框
Check4
Caption
删除线
复选框
四．实验思考：
1.模拟简易计算器Command1命令的单击事件的程序代码是什么？
Private Sub Command1_Click()
Dim a!, b!
Dim c As String
a = Val
b = Val
c =
Select Case c
Case“+”
1．掌握Visual Basic数据类型的基本概念。
2．掌握用Visual Basic的各种运算符及表达式。
3．学习使用Visual Basic内部函数和数据输入、输出方法。
4．掌握命令按钮、文本框和标签。
5．设计顺序程序。
二．实验内容：
1．编写一个华氏温度和摄氏温度之间的转换程序，如图2-2所示,要求用inputbox函数输入华氏温度，用msgbox输出转换后的摄氏温度。转换公式是：C=5 / 9(F - 32)。F为华氏温度，C为摄氏温度。
命令按钮
Text1-text4
Text
““
文本框
2.单选框与复选框
对象
属性
属性值
说明
Frame1
Caption
字体
框架
Frame2
Caption
字号
框架
Frame3
Caption
字型
框架
Label1
Caption
奥林匹克运动会
标签
Option1
Caption
宋体
单选按钮
Option2
Caption
仿宋
““
文本框
四．实验思考：
1．数组应在过程内还是过程外定义，定义的语句是什么？
过程外定义
Dim a(10) As Integer
2．在窗体载入时，在列表框中随机产生10个整数，则程序代码是什么？
Private Sub Form_Load()
Dim i%
For i = 1 To 10
a(i) = Int(Rnd * 101 + 100)
2.用三种除法运算（/ 、\、Mod）做计算。
要求:在窗体上画五个标签、五个文本框和一个命令按钮，如图2-2所示。程序运行后，在第一个文本框中输入被除数，在第二个文本框中输入除数，然后单击命令按钮，即可得到三种不同的相除结果。
图2-1
图2-2
三．实验结果：对象属性设置
1.温度转换