vb数组试验报告

《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）运行结果

    

五、实验总结

通过此次实验，使我掌握固定大小数组的定义及使用方法，掌握动态数组的定义及使用方法，掌握控件数组的使用技巧。