Dim Arr()As Single Sub Form Click() ReDim Arr(4,8)定义为5X9的数组 ReDim Arr(3,2)定义为4X3的数组 End Sub 例： Dim Arr( ) As Single Sub Form_Click( ) . ReDim Arr(4,8) ‘定义为5X9的数组 . ReDim Arr(3,2) ‘定义为4X3的数组 . End Sub