四、数组的基本操作 1.数组元素的赋初值 (1)用循环 For i=1 To 10 iA(i)=0 Next i (2)Arrayi函数 Dim ib As Variant ib Array("abc","def","67") Fori=0 To UBound(ib) Picture1.Print ib(i);""; Next i 注意： (1)利用Array对数组各元素赋值，声明的数组是可调数组或连圆括 号都可省，并且其类型只能是Variant。 (2)数组的下阶为零，上界由Arrayl函数括号内的参数个数可决定， 也可通过函数Ubound获得
四、数组的基本操作 1. 数组元素的赋初值 (1)用循环 For i = 1 To 10 iA(i)=0 Next i (2) Array函数 Dim ib As Variant ib = Array("abc", "def", "67") For i = 0 To UBound(ib) Picture1.Print ib(i); " "; Next i 注意： (1)利用Array对数组各元素赋值，声明的数组是可调数组或连圆括 号都可省，并且其类型只能是Variant。 (2)数组的下阶为零，上界由Array函数括号内的参数个数可决定， 也可通过函数Ubound获得
2.数组的赋值 在VB6.0中，提供了数组直接对数组的赋值。例如： Dim a(As Variant,bO)As Variant,i% a=Array(1,2,3,4,5) ReDim b(UBound(a)) For i=0 To UBound(a) b=a b)=a) Next i 注意：赋值号左边的数组只能声明为Variant的可调数组或简单变量。 3.数组的输出 输出方阵sC中的下三角元素 Fori=0 To 4 Forj=0To i 下三角 回☒ sc(i,j)=i*5+j 5 6 Print sc(i,j);"" 10 11 1 16 Nextj 1 17 18 0 21 2 23 24 Print 换行 Next I
2．数组的赋值 在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的可调数组或简单变量