A.Static arr1(3) arr1(1)=100 arr1(2)="Hello" arr1(3)=123.45
B.Dim arr2() AsInteger Dim size As Integer Private Sub Command2_Click () size=InputBox("输入:") ReDim arr2(size) …… EndSub
C.Option Base 1 Private Sub Command3 Click() Dim art3(3) As Integer …… End Sub
D.Dim n As Integer Private Sub Command4 Cliok() Dim arr4(n)As Integer …… End Sub