11、窗体上有一个列表框和一个文本框,编写下列两个事件过程:
Private Sub Form.Load( )
List1.AddIte m"北京"
List1.AddIte m"天津"
List1.AddIte m"上海"
Textl .Text =""
End Sub
Private Sub List1.Click( )
Print Textl .Text +List1.Text
End Sub
程序运行后,在文本框中输入"中国",然后单击列表框中的"北京",则输出结果是( )。
A.中国北京
B.中国天津
C.中国上海
D.北京中国
12、为了在列表框中使用Ctrl 和Shift 键进行多个列表项的选择,应将列表框的Multi Select 属性设置为( )。
A.0
B.2
C.False
D.True
13、设有如下程序:
Option Base l
Private Sub Form_Click()
Di ma(5)As Stri ng ,i As Integer
For i =1To 5
a(i)=Chr(Asc("A")+i)
Call f(a,i)
Next i
End Sub
Sub f(ta()As Stri ng ,n As Integer)
Di mi As Integer
For i =1To n
Print ta(i);
Next i Print
End Sub
对上述程序,以下叙述中正确的是( )。
A.程序有错,因为在过程f 的定义中数组参数格式不正确
B.程序可正常运行,输出内容的第一行是一个字母"A"
C.程序可正常运行,输出内容的第一行是一个字母"B"
D.程序可正常运行,输出内容的第一行是数字65
14、下列符号常量的声明中,不合法的是( )。
A.Const a As Si ngle =1.1
B.Const a="OK"
C.Const a As Double =Si n(1)
D.Const a As Integer ="12"
15、MsgBox 函数的返回值的类型为( )。
A.数值型
B.变体类型
C.字符串型
D.日期型
16、下列说法正确的是( )。
A.任何时候都可以使用标准工具栏的"菜单编辑器"按钮打开菜单编辑器
B.只有当代码窗口为当前活动窗口时,才能打开菜单编辑器
C.只有当某个窗体为当前活动窗体时,才能打开菜单编辑器
D.任何时候都可以使用D.任何时候都可以使用"工具"菜单下的"菜单编辑器"命令,打开菜单编辑器
17、在窗体上画一个命令按钮(名称为Co mmand1),并编写下列代码:
Function Funl (ByVal a As Integer ,b As Integer)As Integer
Di mt As Integer t =a-b
b =t +a
Funl =t +b
End Function
Private Sub Co mmand1_Click()
Di mx As Integer
x=10
Print Funl(Funl(x,(Funl(x,x-1))),x-1)
End Sub
程序运行后,单击命令按钮,输出结果是( )。
A.10
B.0
C.11
D.21
18、执行下列程序段后,整型变量n 的值为
( )。
n =0
For i =1To 20Step 5
n =n +1
Next i
A.50
B.4
C.15
D.210
19、设有变量声明为"Di m aDate As Date",则为变量aDate 正确赋值的表达方式是( )。
A.aDate =#8/2008#
B.aDate =#"8/8/2008"#
C.aDate =Date("8/8/2008")
D.aDate =Format("m/d/yy","8/8/2008")
20、下列叙述中错误的是( )。
A.在通用过程中,多个形式参数之间可以用逗号作为分隔符
B.在Print 方法中,多个输出项之间可以用逗号作为分隔符
C.在Di m 语句中,所定义的多个变量可以用逗号作为分隔符
D.当一行中有多个语句时,可以用逗号作为分隔符