A) Static arr1(3)Arr1(1)=100 arr1(2)="Hello" arr1(3)=123.45 B) Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBox("输入:") ReDimarr2(size) ...... End Sub C) Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ...... End Sub D) Dim n As Integer Private Sub Command4_Click() Dim arr4(n)As Integer ...... End Sub