你可能感兴趣的试题
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)
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(size)
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(n) 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(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 arr4(n)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("输入:")
ReDimarr2(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 arr4(n)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 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(size)
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(n)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(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 arr4(n)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(size)
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(n)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
Static arr1(3) arr1(1)=100 arr1(2)="Hello" arr1(3)=123.45 Dim arr2() AsInteger Dim size As Integer Private Sub Command2_Click () size=InputBox("输入:") ReDim arr2(siz …… EndSub Option Base 1 Private Sub Command3 Click() Dim art3(3) As Integer …… End Sub Dim n As Integer Private Sub Command4 Cliok() Dim arr4(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("输入:") 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 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