Dim x As Variant与下列哪个语句等价（）。

（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)

A、Dim a(2,4) As Single3C

B、 Dim a(1 to 8)!

C、Dim a!(7)

D、 Dim a(1 to 2,3 to 6) As Long

（ 31 ）下列数组声明语句中，正确的是

A ） dim A[3,4] As integer

B ） dim A(3,4) As integer

C ） dim A[3;4] As integer

D ） dim A(3;4) As integer

有下列程序： Option Base 0 Private Sub Command1_Click() Dim City As Variant x = Array("Visual"，"Basic"，"Microsoft"，"Programming") Print x(2) End Sub 程序运行后，单击命令按钮，则在窗体上显示的内容是

A．Microson

B．错误提示

C．Visual

D．Basic

以下定义数组或给数组元素赋值的语句中，正确的是

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

A、Dim a(3,4) As Integer

B、Dim a(1 to 12)%

C、Dim a%(-1 to 1,3)

D、Dim a(1 to 2,3 to6) As Long

VBScript中声明Variant变量使用___________语句。

下列数组声明语句中，正确的是( )。

A．Dim A[3,4] As Integer

B．Dim A(3,4) As Integer

C．Dim A[3;4] As Integer

D．Dim A(3;4) As Integer

以下定义数组或给数组元素赋值的语句中，正确的是

A．Dim x%(2) x(1)="等级考试"

B．Dim x(3)， y(3)As Integer x(0)=1：y=x

C．Dim x x=Array(0，1，2)

D．Dim x(3)As Integer x=Array(0，1，2)

设有如下程序： 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．2

B．6

C．10

D．12