运行效果：程序代码：Private Sub Form_Load() For i = 0 ToLabel1.Count - 1 Label1(i).Caption ="移动鼠标" Next iEnd SubPrivate Sub Label1_MouseMove(Index As Integer, Button AsInt...
运行效果：程序代码：Private Sub Form_Load() For i = 0 ToLabel1.Count - 1 Label1(i).Caption ="移动鼠标" Next iEnd SubPrivate Sub Label1_MouseMove(Index As Integer, Button AsInt...
因为数组也是变量，所以，你必须用声明其它变量的类似方法声明数组——使用Dim语句。当你声明一个数组时，你便设定了该数组储存数据所需要的内存空间。数组声明的例子：Dim cities(6) As String
Dim daysOfWeek(7) As String
Dim lotto(6) As Integer
Dim exchange(5, 3) As Varian注意，变量名称后面带有括号以及括
使用Redim动态数组即可。 Sub test1()
Dim a() As Integer, iRow As Long, i As Integer
iRow = Cells(Rows.Count, 1).End(xlUp).Row
ReDim a(iRow - 1)
For i = 1 To UBound(a)
a(i - 1) = Range
