VB数组的使用

实验六  数组的使用

一、实验目的
    (1)掌握数组的声明和数组元素的引用。
    (2)掌握固定数组和动态数组的使用方法。
    (3)学会利用数组解决一些较为复杂的问题。
二、相关知识
]．数组概念
    数组是一组相同类型的变量的集合，在程序中可以用一个数组名代表逻辑上相关的一组数据。在Visual Basic中有两种类型的数组：固定大小的数组以及在运行时大小可变的动态数组，有时也称这两种数组为定长数组和可变长数组。数组必须先声明后使用。
2. 固定数组
固定大小数组的声明形式为：
    Dim数组名(下标 [，下标2]……)[As类型]
其中下标必须是常数，格式为：[下界to]上界，省略下界时，默认值为0；省略[As]系统认为是变体数组。
3．动态数组
    动态数组的声明形式为：
    Dim数组名()[As类型]
    此时定义的数组的大小是不确定的。在使用时，随时用 ReDim数组名(下标[，下标2]．．．)    语句指定数组的大小。
    在定义动态数组时首先在过程外使用Dim、Private、Public语句声明下标为空的数组，然后在过程中用ReDim语句指明该数组的大小。
4．数组元素
数组声明时用数组名表示该数组的整体，但在具体操作时是针对每个数组元素进行的，因此，数组的引用单位是数组元素。
三、实验举例
(实例1) 打印并输出5*5方阵中的下三角和上三角元素。
    Private Sub Form_click()
    Dim i，  j，  sc(4，  4)
    For  i  =  0  TO  4
For j=0 TO i
          sc(i，  j)  =  i  *  1  +  j
                Print sc(i，j)；  “  ”;
Next j
             Print
Next  i
Print
Print
For i =  0 TO 4
Print  Tab(5  *I+1);
For j=i TO 4
           sc(i，  j)  =I*1+j
           Print  sc(i，j); “  “;
Next j
Print
     Next i
End  sub
观察输出结果。
(实例2) 编一个程序，打印符合杨辉三角形的数据列。
分析：解决此题所用方法的要点是：定义一个二维数组A，在该数组中，每—行的第一个元素和最后一个元素都为1，其余各元素等于它上面一行的同一列和前—列数据之和。
Private  Sub  Form_CliCk()
Dim  a(9，  9)  AS  integer
For  i  =  0  To  9
    a(i，  i)  =  1
    a(i，  0)  =  1
Next  i
For  I =2 to 9
    M=I-1
For  j  =  1  To   m
A(I,j) =  a(m，j-1) +a(m,j)
Next  j
Next  i
For  i  =  0  TO  9
For  j  =  0  to  i
    Print a(I,j);
Next  j
Print
 Next  i
end  Sub