A.Static arr1(3) :arr1(1) = "100" : arr1(2) = "Hello" :arr1(3) = "123.45" B.Dim arr2( ),size As Integer Private Sub Command2_Click( ) size =InputBox("输入:") ReDim arr2(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