第2次作业
一、单项选择题（本大题共60分，共 20 小题，每小题 3 分）
1. 有如下事件过程，程序的功能是（）。 Private Sub Commandl _Click ( ) S1=0: S2=0 M1=0: M2=0 N=1 Do while N<=100 A=INT(101* RND) If a mod 2=0 THEN S1= S1+A : M1=M1+1 Else S2= S2+A : M2=M2+1 End if N=N+1 Loop Print S1,S2 Print M1,M2 END Sub A.
求101以内奇数之和 B.
求101以内偶数之和
C.
随机产生100个0-100之间的整数，并分别求这些数的奇数和与偶数的个数与和
D.
随机产生101个0-100之间的整数，并分别求这些数的奇数和与偶数的个数与和
2. 下列程序段的执行结果为（ ）。 Dim x as integer If x Then Print x Else Print x+1 A.
1
B.
0
C.
-1
D.
显示出错信息
3. 下列选型中，说法错误的是（ ）。 A.
每个菜单项都是一个控件，与其他控件一样也有自己的属性和事件
B.
除了Click事件外,菜单项还能响应其他的如Dblclick等事件 C.
不能给顶级菜单项设置快捷键 D.
在程序执行时,如果菜单项的Enabled属性为False,则该菜单项变成灰色,不能被用户选择
4. 下列程序的执行后，X的结果为（）。 Private Sub Command1_Click( ) x=0 For i=1 to 3 x=1 For j=1 to 4 x=2 For k=1 to 5 x = x + 2 Next k Next j Next i Print x End Sub A.
12
B.
24
C.
36
D.
48
5. 要让文本框获得焦点的方法是（ ）。 A.
GOTFOCUS
B.
SETFOCUS
C.
LOSTFOCUS
D.
上述3个都可以
6. 已知d=#2015-04-01#表达式year(d)+1的值是（ ）。 A.
出错
B.
2016
C.
05
D.
02
7. 下列程序运行后，输出的结果为（ ）。 B=1 Do while (b A.
1
B.
6
C.
39
D.
42
8. 下列程序执行后，变量s的值为______。 Dim s As long ,x As Integer s=0:x=1 Do While (x A.
10
B.
25
C.
50
D.
100
9. 若在消息框中显示“是（Yes）”和“否（No）”两个按钮，则buttons参数的设置值是（ ）。 A.
2
B.
3 C. 4 D. 5
10. 可用于设置系统当前时间的语句是（ ）。 A.
Date
B.
Date$
C.
Time
D.
Timer
11. 窗体的标题栏显示内容由窗体对象（ ）属性决定。 A.
BackColor
B.
Text
C.