你可能感兴趣的试题
Static arr1(3) arr1(1)=100 arr1(2)="Hello" arr1(3)=12345 Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=Input Box("输入:") ReDimarr2(siz ... End Sub Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ... End Sub Dim n As Integer Private Sub Command4_Click() Dim arr4(As Integer ... End Sub
Static arrl(3) arrl(1)=100 arrl(2)="Hello" arrl(3)123.45 Dim arr2()As Integer Dim size As Integer Private Sub Command2_click() size=InputBox("输入:") ReDimarr2(siz End Sub Option Base1 Private Sub Command3_click() Dim arr3(3)As Integer End Sub Dim n As Integer Private Sub Command4_Click() Dim arr4(As Integer End Sub
Static arrl(3) arr1(1)=100 arrl(2)="Hello" arrl(3)=123.45 Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBOX(“输入:”) ReDim arr2(siz ┄ End Sub Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ┄ End Sub Dim n As Integer Private Sub Command4_Click() Dim arr4(As Integer ┄ End Sub
Static arr1(3) Arr1l(1)=100 Arr1(2)=“Hello” Arr1(3)=123.45 Dim art2( )As Integer Dim size As Integer Private Sub Command2_Click( ) size=Input Box(“输入:”) ReDinarr2(siz …… End Sub Option Base 1 Private Sub Command3_Click( ) Dim arr3(3) As Integer …… End Sub Dim n As Integer Private Sub Command4_Click( ) Dim arr( As Integer …… End Sub
Static arr1(3) arr1(1)=100 arr1(2)="Hello" arr1(3)=123.45 Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBox("输入:") ReDim arr2(siz … End Sub Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer … End Sub Dim n As Integer Private Sub Command4_Click() Dim arr4(As Integer … End Sub
Static arr1(3)
Arr1l(1)=100
Arr1(2)=“Hello”
Arr1(3)=123.45 Dim art2( )As Integer
Dim size As Integer
Private Sub Command2_Click( )
size=Input Box(“输入:”)
ReDinl.arr2(size)
……
End Sub Option Base 1
Private Sub Command3_Click( )
Dim arr3(3) As Integer
……
End Sub Dim n As Integer
Private Sub Command4_Click( )
Dim arr(n) As Integer
……
End Sub
k%=10 Dim Arr( Const k%=10 Dim Arr( Dim Arrl(10) As Integer Dim Arr2(10) Dim Arrl(1 To 10) Dim Arr2(1 To 10,2 To 11)
Static arr1(3) Arr1(1)=100 arr1(2)="Hello" arr1(3)=123.45 Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=InputBox("输入:") ReDimarr2(siz ...... End Sub Option Base 1 Private Sub Command3_Click() Dim arr3(3)As Integer ...... End Sub Dim n As Integer Private Sub Command4_Click() Dim arr4(As Integer ...... End Sub
Static arrl(3) rrl(1)=100 arrl(2)="Hello" arrl(3)=123.45 Dim arr2()As Integer Dim size As Integer Private Sub Command2_Click() size=inputBox('输入:") ReDimarr2(siz End Sub OptionBase 1 Private Sub Command3_Click() Dim arr3(3) As Integer End Sub Dim n As Integer Private Sub Command4_Click() Dim arr4(As Integer End Sub
Static arr Dim arr(5) Dim arr() Dim arr As Variant
k%=10
Dim Arr(k) Const k%=10
Dim Arr(k) Dim Arrl(10) As Integer
Dim Arr2(10) Dim Arrl(1 To 10)
Dim Arr2(1 To 10,2 To 11)
Static arrl(3) arrl(1)=100 arrl(2)="Hello" arrl(3)=123.45 Dim arr2()As Integer Dim size As Integer Private Sub Command2 Click() size=InputBox("输入:") ReDimarr2(siz End Sub Option Basel Private Sub Command3 Click() Dim arr3(3)As Integer End Sub Dim n As Integer Private Sub Command4 Click() Dim arr4( As Integer End Sub
Dim arr(-5) As Integer Static arr(5) Dim arr(2,1 To 3) Dim arr(0 To 2,1 To 3)As Integer