中财网上海五金市场:vb数组试验报告
来源：百度文库 编辑：中财网 时间：2024/05/06 16:36:14
《VB语言程序设计》实验报告
实验名称：数组应用
姓 名： xxxx
学 号： 3090511075
同 组 者：_________________
专业班号： 管093
实验日期：_________________
教师签字：_________________
一、实验目的及要求
1．掌握固定大小数组的定义及使用方法。
2． 掌握动态数组的定义及使用方法。
3． 掌握控件数组的使用技巧。
二、实验设备及环境
Windowsp vb6.0
三、实验内容
课后1，2,4题
四、实验步骤
1.题1
（1）用户界面设计（界面图，可用截图）
（2）关键程序代码（指明针对哪一对象的什么事件，可用截图）
Private Sub Form_Load()
Show
Dim A As Variant, B As Variant, C(8) As Integer
A = Array(3, 4, 2, 1, 5, 7, 8, 11, 13)
B = Array(10, 6, 12, 9, 13, 8, 8, 1, 16)
For i = 0 To 8
C(i) = A(i) + B(i)
Print C(i);
Next
End Sub
（3）运行结果（界面图）
2.题1（内容同上）
（1）用户界面设计
（2）关键程序代码
Private Sub Form_Load()
Show
Dim a(6, 6) As Integer
For i = 1 To 6
For j = 1 To 6
If i = j Then
a(i, j) = 0
ElseIf i > j Then
a(i, j) = 2
Else i < j
a(i, j) = 1
End If
Print a(i, j);
Next
Print
Next
End Sub
（3）运行结果
3.题3
（1）用户界面设计
（2）关键程序代码
Dim n As Integer
Private Sub Command1_Click()
n = n + 1
k = n Mod 3
opt(k).Value = True
End Sub
Private Sub Form_Load()
n = 1
opt(n).Value = True
End Sub
（3）运行结果
五、实验总结
通过此次实验，使我掌握固定大小数组的定义及使用方法，掌握动态数组的定义及使用方法，掌握控件数组的使用技巧。