四、数组的基本操作 1.数组元素的赋初值 (1)用循环 For i=1 To 10 IA(O=0 Next i (2)Aray函数 tuy Dim ib As variant、lh ib= Array l abc",def 67) For i=0 To UBound(ib) CUi Picture1 Print ib(D:C 1 Next i 注意: 1)利用Aray对数组各元素赋值,声明的数组是可调数组或连圆括号都可省,并且 其类型只能是 Variant (2)数组的下阶为零,上界由Aray函数括号内的参数个数可决定,也可通过函数 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.数组的赋值 在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'换 2021222324
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的可调数组或简单变量