A、Static arr1(3) Arr1(1)=100 arr1(2)="Hello" arr1(3)=123.45 B、Dim arr2()As Integer Dim sizeAs Integer Private SubCommand2_Click() size=InputBox("输入:") ReDimarr2(size) ...... End Sub C、OptionBase 1 Private SubCommand3_Click() Dim arr3(3)As Integer ...... End Sub D、Dim nAs Integer Private SubCommand4_Click() Dim arr4(n)As Integer ...... End Sub