第6章数组和其它控件 变体变量可以扩充为数组,用Aray函数可以给变体变量赋一组 数,这组数的数据类型可以不同,赋值以后变体变量扩充为数 组,要访问其中的元素。例如: Option base 1 Private Sub Form Click( Dim an an= Array( Name 1,Name 2,Name 3, Int(Rnd x 10000/100,Int(Rnd*10000)/100,Int(Rnd来10000 100) For i=1 to 3 Print an (i), an(i +3 Next i End sub 2021/223第6章 数组和其它控件 2021/2/23 变体变量可以扩充为数组，用Array函数可以给变体变量赋一组 数，这组数的数据类型可以不同，赋值以后变体变量扩充为数 组，要访问其中的元素。例如： Option Base 1 Private Sub Form_Click() Dim an an = Array("Name 1", "Name 2", "Name 3", Int(Rnd * 10000) / 100, Int(Rnd * 10000) / 100, Int(Rnd * 10000) / 100) For i = 1 To 3 Print an(i), an(i + 3) Next i End Sub