2.数组的赋值 在VB60中,提供了数组直接对数组的赋值。例如: Dim a( As variant, b( As variant, i% a=Aray1,2,345) ReDim b(UBound(a) For i=0 To UBound(a) a b()=a() Next i 注意:赋值号左边的数组只能声明为 Variant的可调数组或简单变量。1lx 3.数组的输出 输出方阵SC中的下三角元素 For i=0 to 4 Forj=0To i sc(,j)=i*5+ 下三角 回区 Mer/秀bmb/D Print sc(i,j; Next j 56 Print'换 20212223242．数组的赋值 在VB6.0中，提供了数组直接对数组的赋值。例如： Dim a() As Variant, b() As Variant, i% a = Array(1, 2, 3, 4, 5) ReDim b(UBound(a)) b = a 3. 数组的输出 输出方阵sC中的下三角元素 For i = 0 To 4 For j = 0 To i sc(i, j) = i * 5 + j Print sc(i, j); " "; Next j Print ' 换行 Next I For i = 0 To UBound(a) b(i) = a(i) Next i 注意：赋值号左边的数组只能声明为Variant的可调数组或简单变量