vb上机实验
Private Sub jiecheng(n As Integer, result As Long) Dim i As Integer result = 1 For i = 1 To n result = result * i Next i End Sub
Private Sub Command1_Click( ) Dim x As Integer, t As Long x = 4
Call jiecheng(x, t)
Label1.Caption = Str(x) + \End Sub
Private Sub Command2_Click( ) Dim x As Integer, t As Long x = 6
Call jiecheng(x, t)
Label2.Caption = Str(x) + \End Sub
4．运行程序
分别单击“4！”命令按钮和“6！”命令按钮，程序运行效果如图6－3所示。
图6－3 求4！和6！
21 zjh
vb上机实验
实验七 Function过程
【实验目的】
1．掌握Function过程的定义。 2．掌握Function过程的调用。
3．掌握Function过程参数传递规则。
【实验内容】
编写一个求任意数的平方的函数，调用该函数求1～10的平方数。
【实验步骤与指导】
1．设计界面
在窗体上添加一个标签和一个列表框。初始界面如图7－1所示。
图7－1 初始界面 图7－2 设置属性后的界面 2．设置属性
表7－1 属性设置
对象 Label1 List1 List 属性 Caption 属性值 求1～10的平方数
设置属性后的界面如图7－2所示 3．编写程序代码
Private Function power(x As Integer) As Integer power = x * x
22
zjh
vb上机实验
End Function
Private Sub Form_Click( ) Dim a As Integer For a = 1 To 10
List1.AddItem power(a) Next a
End Sub 4．运行程序
运行程序后，单击窗体，程序运行效果如图7－3所示。
图7－3 求1～10的平方数
23
zjh
vb上机实验
实验八 单选框和复选框的应用
【实验目的】
1．掌握单选框,复选框的定义。 2．掌握单选框,复选框的区别。
【实验内容】
建立一个标准工程实现单选框和复选框的组合应用。
【实验步骤与指导】
1．设计界面
在窗体上添加一个单选框组(包含三个单选框),一个复选框组(包含三个复选框),两个标签框。初始界面如图6－1所示。
图8－1 初始界面 图8－2 设置属性后的界面 2．设置属性，如表8－1所示。
表8－1 属性设置
对象 Optionbutton1(0) Optionbutton1(1) Optionbutton1(2) Checkbox1(0) Checkbox1(1) Checkbox1(2) Label1 Label2 属性 Caption Caption Caption Caption Caption Caption caption caption 属性值 张文 王雪 林非 VB6.0语言程序设计 汇编语言 单片机原理 无 无
设置属性后的界面如图8－2所示。
24
zjh
vb上机实验
3．编写程序代码
Private Sub Check1_Click(index As Integer)
Dim k As String Dim i As Integer k = \
For i = 0 To 2
If Check1(i).Value = 1 Then
k = k & Check1(i).Caption & \End If Next i
k = \你选择了\Label2.Caption = k End Sub
Private Sub Option1_Click(index As Integer) Dim i As Integer For i = 0 To 2
If Option1(index).Visible = True Then
Label1.Caption = \你选择了\End If Next i End Sub
4．运行程序
分别单选框中的某一项和复选框中的某几项，程序运行效果如图8－3所示。
图8－3 运行结果
25 zjh