B.Dim arr2()As Integer Dim size As Integer Private Sub Command2 Click() size=InputBox("输入:") ReDimarr2(size) End Sub C.Option Basel 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