|
《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）运行结果 五、实验总结 通过此次实验，使我掌握固定大小数组的定义及使用方法，掌握动态数组的定义及使用方法，掌握控件数组的使用技巧。 |
|
|
