题目内容
（请给出正确答案）
设有如下语句： Dim a,b As Integer c="Visual Basic" d=#7/20/2005# 以下关于这段代码的叙述中，错误的是______。
A．a被定义为Integer类型变量
B．b被定义为Integer类型变量
C．c中的数据是字符串
D．d中的数据是日期类型
如果结果不匹配，请 联系老师 获取答案
更多“设有如下语句：Dim a,b As Integerc="Vi…”相关的问题
A.a和b都是布尔型变量
B.a是变体型变量，b是布尔型变量
C.a是整型变量，b是布尔型变量
D.a和b都是变体型变量
A.a和b都是布尔型变量
B.a是变体型变量，b是布尔型变量
C.a是整型变量，b是布尔型变量
D.a和b都是变体型变量
设有语句组：
Dim S1 As String*5
S1 = "VB Test"
则S1的值为()。
A、 VB Test
B、 VB Te
C、 VBTes
D、 BTest
设有数组定义语句:Dim a(5) As Integer,List1为列表框控件。下列给数组元素赋值的语句错误的是
A．a(3)=3
B．a(3)=InputBox("input data")
C．a(3)=List1.ListIndex
D．a=Array(1,2,3,4,5,6)
设有数组定义语句：Dim a(5)As Integer，List1为列表框控件。下列给数组元素赋值的语句错误的是
A．a(3)=3
B．a(3)=inputbox("input data")
C．a(3)=Listl．Listlndex
D．a=Array(1，2，3，4，5，6)
设有数组定义语句：Dim a(5)As Integer，并设List1为列表框控件。下列给数组元素赋值的语句错误的是()。
A．a(3)=3
B．a(3)=inputbox("inputdata")
C．a(3)=List1.List1ndex
D．a=Array(1，2，3，4，5，6)
（22）设有如下程序段：
Dim a(10)
...
For Each x In a
Print x;
Next x
在上面的程序段中，变量x必须是
A）整型变量
B）变体型变量
C)动态数组
D)静态数组
设有如下程序： 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
设有如下变量声明： Dim TestDate As Date为变量TestDate正确赋值的表达方式是 ______。
A．TestDate=#1/1/2002#
B．TestDate=#"1/1/2002"#
C．TestDate=date("1/1/2002")
D．TestDate=Format("m/d/ yy", "1/1/2002")
设程序中有如下数组定义和过程调用语句：
Dim a(10) as integer
……
Call p(a)
如下过程定义中，正确的是
A)Private Sub p(a as integer)
B)Private Sub p(a() as integer)
C)Private Sub p(a(10) as integer)
D)Private Sub p(a(n) as integer)
设有如下程序： Option Base 0 Private Sub Form Click() Dim a Dim i As Integer a = Array(1， 2， 3， 4， 5， 6， 7， 8， 9) For i = 0 To 3 Print a(5 - i)； Next End Sub 程序运行后，单击窗体，则在窗体上显示的是
A．4 3 21
B．543 2
C．6 54 3
D．7 6 54
