下列各语句中,正确的是A) Dim x As Variant=Array(1, 2,3, 4. 5)B)Dim xo As Integer: x=Array (1, 2:3: 4.5)C)Dim x As ariant: x=Array(1: abc: 2,3. 41)D) Dim x As Integer: x=Arra (1, 2, 3+25)
下列各语句中,正确的是
A) Dim x As Variant=Array(1, 2,3, 4. 5)
B)Dim xo As Integer: x=Array (1, 2:3: 4.5)
C)Dim x As ariant: x=Array(1: abc: 2,3. 41)
D) Dim x As Integer: x=Arra (1, 2, 3+25)
相关考题：
（ 31 ）下列数组声明语句中，正确的是A ） dim A[3,4] As integerB ） dim A(3,4) As integerC ） dim A[3;4] As integerD ） dim A(3;4) As integer
下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i，i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print xA．3B．4C．5D．6
下面的语句用Array函数为数组变量a的各元素赋整数值：a=Array(1，2，3，4，5，6，7，8，9)针对a的声明语句应该是A．Dim aB．Dim a As IntegerC．Dim a(9) As IntegerD．Dim a() As Integer
（25）下列程序段错误的是。A.Dim a As Integer a=array(1,2,3,4) B.Dim a(),b() a=array(1,2,3,4):b=a C.Dim a As Variant a=array(1,"asd",true) D.Dim a() As Variant a=array(1,2,3,4)
在窗体上画一个名称为Text1 的文本框和一个名称为Command1 的命令按钮，然后编写如下事件过程： Private Sub Commandl1_Click( ) Dim array1 ( 10, 10) As Integer Dim i,j As Integer For i=1 To 3 For j = 2 To 4 Array1 (i, j) =i +j Next j Next i Text1.Text=array1(2.3) + array1(3.4) End Sub程序运行后，单击命令按钮，在文本框中为示的值是( )。A．12B．13C．14D．15
以下定义数组或给数组元素赋值的语句中，正确的是A．Dim a As Variant a=Array(1，2，3，4，5)B．Dim a (10) As Integer a=Array(1，2，3，4，5)C．Dim a%(10) a(1)="ABCDE"D．Dim a (3)，b(3) As Integer a(0)=0 a(1)=1 a(2)=2 b=a
下面的语句用 Array函数组变量a的各元素赋整数值： a=Array(1，2，3．4，5，6，7，8，9) 针对a的声名语句应该是（ ）。A.Dim aB.Dim a As IntegerC.Dim a(9)As IntegerD.Dim a（ ）As Integer
以下定义数组或给数组元素赋值的语句中，正确的是A．Dim x%(2) x(1)="等级考试"B．Dim x(3)， y(3)As Integer x(0)=1：y=xC．Dim x x=Array(0，1，2)D．Dim x(3)As Integer x=Array(0，1，2)
有下列程序： Option Base 0 Private Sub Command1_Click() Dim City As Variant x = Array("Visual"，"Basic"，"Microsoft"，"Programming") Print x(2) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是A．MicrosonB．错误提示C．VisualD．Basic
下列数组定义语句中，错误的是( )。A．Static a(10) As IntegerB．Dim c(3，1 To 4)C．Dim d(-10)D．Dim b(0 To 5，1 To 3)As Integer
设有如下程序： Private Sub search(a()As Variant，ByVal key As Variant，index%) Dim I％ For I = Lbound(a)To Ubound(A)If key=a(I)Then index=I Exit Sub End If Next I index=-1 End Sub Private Sub Form_Load() Show Dim b()As Variant Dim n As Integer b=Array(21，64，92，15，72，38，45，72) Call search(b， 45， n) Print n End Sub 程序运行后，输出的结果是A．2B．6C．10D．12
下面的语句用Array函数为数组a的各元素赋整数值： a＝Array(1,2,3,4,5,6,7,8,9) 对数组变量a的正确定义是A．Dim aB．Dim a As IntegerC．Dim a(9) As IntegerD．Dim a() As IntegEr
有如下函数:Private Function firstfunc(x As Integer, y As Integer) As Integer Dim n As Integer Do While n ＜= 4 x=x +y n=-+1 Loop firstfunc = x End Function调用该函数的事件过程如下:Private Sub Command1_lick() Dim x As Integer Dim y As Integer Dim n As Integer Dim z As Integer x=1 y=1 For n = 1 To 3 z = firstfunc(x, y) Next n Print z End Sub该事件过程的执行结果是 ______。A．1B．3C．16D．9
编写如下事件过程： Option Base 1 Private Sub Form Click() Dim x1()As Integer Dim i As Integer Dim s As Integer ReDim x1(3) For i = 1 To UBound(x1) x1(i)=i + 1 Next i Call sub1(x1) For i = 1 To UBound(x1) s = s + x1(i) Next i Print s End Sub Private Sub sub1(n()As Integer) Dim i As Integer ReDim Preserve n(5) For i = 3 To 5 n(i)=n(i-1)*2 Next i End Sub 程序运行后，单击窗体，则窗体上显示的内容是A．6B．12C．24D．47
以下定义数组或给数组元素赋值的语句中，正确的是A． Dim a As Variant a=Array(1,2,3,4,5)B．Dim a(10) As Integera =Array(1,2,3,4,5)C．Dim a%(10) a(1)="ABCDE"D．Dim a(3),b(3) As Integer a(0)=0 a(1)=1 a(2)=2 b=a
针对下面程序段，边界值问题可以定位在(62)1：Rem Crege a 10 element integer array2：Rem Initialize each element to -13：Dim data(10) As Integer4：Dim i As Integer5：For i=1 TO 106：data(i)=-17：Next i8：EndA．data(1)B．data(0)C．data(9)D．data(10)
下列数组说明语句正确的是A．Dim g(0，-5)As SingleB．Dim h(100 To 100，100)As StringC．Dim x(5)As Integer ReDim x(10)As IntegerD．Dim y() ReDim y
下列程序运行后会出现错误的提示为 Private Sub Command1_Click() Dim i AS Integer Dim x x=Array(2，3， 4， 5， 6， 7) For Each i In x Print i； Next i End SubA．数组的下标超界B．For Each数组的控制变量必须为变体变量C．关键字Each的位子不对D．x应该定义成数组
在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写．如下事件过程： Private Sub Command1_Click() Dim array1(10，10)As Integer Dim i As Integer, j As Integer For i=1 To 3 For j=2 To 4 array1(i,j)=i+j Next j Next i Text1.Text=array1(2，3)+arrayl(3，4) End Sub 程序运行后，单击命令按钮，在文本框中显示的值是______。A．12B．13C．14D．15
下列程序段的执行结果为______。 Dim m(3,3)As Integer Dim i As Integer Dim j As Integer Dim x As Integer For i=1 To 3 m(i,i)=i Next For i=0 T0 3 For j=0 To 3 x=x+m(i, j) Next Next Print xA．3B．4C．5D．6
以下哪个选项定义了10个整型数构成的数组，数组元素为NewArray(1)至NewArray(10)A．Dim NewArray (10)As IntegerB．Dim NewArray(1 To 10)As IntegerC．Dim New Array(10)IntegerD．Dim NewArray(1 To 10)Integer
下列程序段的执行结果为 ______。 Dim m(3，3)As Integer Dim i As Integer Dim j As Integer Dim K As Integer For i=1 To 3 m(i,i)=i Next For i=0 To 3 For j=0 To 3 x=x+m(i，j) Next Next Print xA．3B．4C．5D．6
以下定义数组或给数组元素赋值的语句中，正确的是（ ）。A．Dim a As Varianta=Array（1,2,3,4,5）B．Dim a（10） As Integera=Array（1,2,3,4,5）C．Dim a%（10）a（1）="ABCDE"D．Dim a（3）,b（3） As Integera（0）=0a（1）=1a（2）=2b=a
下述代码A和B正确的值是（） Dim X As String = "123" Dim Y As Integer = 123 Dim A As String = X + Y Dim B As String = X YA“246”，“123123”B246，“123123”C“123123”，“123123”D123123，“123123”
在VB中，使用变量前一般应对变量进行定义。以下变量定义语句错误的是（）。A、Dim x As IntegerB、Dim x As Integer，y As SingleC、Var x，y：IntegerD、Dim x As Integer，y As Integer
下述代码A和B正确的值是（） Dim X As String = "123" Dim Y As Integer = 123 Dim A As String = X + Y Dim B As String = X YA、“246”，“123123”B、246，“123123”C、“123123”，“123123”D、123123，“123123”
以下声明语句中错误的是（）。A、Const var1=123B、Dim var2=’ABC’C、Dim x_y_z%D、Static var3 As Integer