你可能感兴趣的试题
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
定义了一个名为a的一维数组 a数组有3个元素 a数组元素的下标为1~3 数组中的每一个元素都是整型
定义固定大小数组时,维界定义中不可以包含变量 可以使用常数表达式或已经定义过的符号常数说明数组的维界 定长字符串类型的数组不可以作为过程的形式参数 只能在标准模块中用Public语句定义一个全局数组
定义了一个名为a的一维数组 a数组有3个元素 a数组的元素的下标为1-3 数组中的每一个元素都是整型
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
定义了一个名为a的一维数组 a数组有3个元素 a数组的元素的下标为1~3 数组中的每一个元素都是整型
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
a数组在内存中占44个字节 a数组的最后一个元素为a[10] a数组的第一个元素为a[0] 以上定义语句给a数组所赋初值是整数,因此不能正确赋初值
定义了一个名为k的一维数组 k数组有3个元素 k数组元素的下标为1~3 数组k中的每一个元素都是整型
定义了一个名为a的一维数组 a数组有3个元素 a数组的下标为1~3 数组中的每个元素都是整型
a数组在内存中占44个字节 a数组的最后一个元素为a[10] a数组的第一个元素为a[0] 以上定义语句给a数组所赋初值是整数,因此不能正确赋初值
使用ReDim语句,可以改变任何数组的大小与维数 使用ReDim语句,可以定义一个新数组 使用ReDim语句重新定义动态数组时,维界表达式中可以采用变量 使用ReDim语句重新定义的新数组,既可比原数组大,也可比原数组小
数组必须先定义后使用 定义数组时,数组维界值可以不是整数 Erase语句的作用是对已定义数组的值重新初始化 数组形参可以是定长字符串类型
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
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