2018年6月可视化程序设计（VB） ( 第2次 )作业.doc

第2次作业
一、单项选择题(本大题共60分,共 20 小题,每小题 3 分)
1. 有如下事件过程,程序的功能是()。 Private mandl _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 mand1_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.
Name 
D.
Caption
12. 下列程序 Option Base 1 Const upl = 10 Private Sub Form_click() Dim a(upl) As Integer k = -1 For i = 1 To upl a(i) = i * k k = -1 * k Next i For i = 1 To 10 Print a(i); Next End Sub 运行时输出的结果是() 。
A.
 1 3 5 7 9 10  
B.
-1 -3 -5 -7 -9
C.
-1 2 -3 4 -5 6 -7 8 -9  10 
D.
1 -2 3 -4 5 -6 7 -8 9 -10
13. 以下关于过程的叙述中,错误的是( )。
A.
函数过程的返回值可以有多个。
B.
事件过程是由某个事件触发而执行的过程。
C.
不能在事件过程中定义通用过程。
D.
可以在事件过程中调用过程。
14. 程序的运行结果为()。 Dim k As Integer n=5:m=1:k=1 While k<=n m=m*2 k=k+1 wend Print m
A.
1
B.
5
C.
32
D.
40
15. 下列选项中叙述正确的是( )。