vb数组讲义.doc

第五章 数组及应用 array 一组类型相同的数据共同拥有一个变量名，形成一个数组.如三个学生的学号： No1=201305001 no2=20132502 no3=201305006以上为三个独立的变量 No(1)=201305001 no(2)=20132502 no(3)=201305006 三个值存放在一个变量no中，分别使用下标1,2,3来区分使用数组的目的之一：方便循环控制下标变化，达到自动批量处理数据一 一维静态/固定数组 数组使用前必须先定义 Dim 数组名(下标上界) as 类型 如：dim a(10) as integer 定义一个数组，10/11个分量，每个分量存放一个整数 下界是1还是0的决定：option base 1/0 （默认0）例：常用定义数组格式： Dim a(3 to 10) as integer 定义8个分量 Dim a(-3 to 4) as integer 8个 Dim a(5) 定义5/6个变体型 Dim a(3.6) =dim a(4)（CInt:四舍五入取整） Dim a(3.3)=dim a(3)例程:例：产生10个介于10-100整数，把最大数和最小数及其位置求出来 分析：先假设第一个数为最大，再把210这9个数分别与前面的最大数比较，如更大则重新保存Dim a(10) As IntegerFor i = 1 To 10 a(i) = Int(Rnd() * 90) + 10Print a(i);Next iPrintt1 = a(1): p1 = 1t2 = a(1): p2 = 1For i = 2 To 10 If a(i) t1 Then t1 = a(i): p1 = i End If If a(i) = A And t = Z Then a(Asc(t) = a(Asc(t) + 1 End IfNext iFor i = 65 To 90 If a(i) 0 Then Print Chr(i) & : & a(i)Next i二 二维静态数组的应用静态数组：定义数组时下标只能是常量，不能是变量，而且一但数组分量个数（数组大小）确定后，在程序运行过程中，不能再修改个数 Dim 数组名(第一维下标的上界，第二维下标的上界) as 类型 Dim a(3,5) as integer Dim a(1 to 3,1 to 5) as integer例：产生一个5*5矩阵, 输出例：把上面数组沿主对角线交换翻转例：上例按副对角线交换翻转Dim a(1 To 5, 1 To 5) As IntegerFor i = 1 To 5 For j = 1 To 5 a(i, j) = Int(Rnd() * 100) Print a(i, j); Next j PrintNext iPrint _For i = 1 To 5 For j = 1 To 5 - i t = a(i, j): a(i, j) = a(6 - j, 6 - i): a(6 - j, 6 - i) = t Next jNext i输出：For i = 1 To 5 For j = 1 To 5