一、选择题：35题，2分/题，共70分
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
1.当运行程序时，系统自动执行启动窗体的某个事件过程。这个事件过程是(A)
A)Load
B)Click
C)Unload
D)GotFocus
2.无论何控件，都具有一个共同属性。这个属性是(C)
A)Text
B)Font
C)Name
D)Caption
3.在一行内写多条语句时，语句之间要用某个符号分隔。这个符号是(D)
A)，
B);
C)、
D)：
4.表达式3∧2*2+3 MOD 104的值是(C)
A)18
B)1
C)19
D)0
5.下面的变量名合法的是(A)
A)k_name
B)k ame
C)name
D)k-name
6.设有如下变量声明Dim time1 As Date,为变量time1正确赋值的表达式是(A)
A)time1 = #11:34:04 #
B)time1 = Format(Time,"yy:mm:dd")
C)time1 = #"11:34:04"#
D)time1 = Format("hh:mm:ss",Time)
7.表达式12000 + "129" & 200的值是(B)
A)12329
B)"12129200"
C)"12000129200"
D)"12329"
8.若设a = 4,b = 5,则下列表达式值为真的是(D)
A)(True+a)>0 And b>10
B)a>b Or b>10-a
C)(False-b< 0) Eqv (a>b)
D)a>b Xor b+3>5
9.当窗体上的文字或图形被覆盖或最小化后能恢复原貌，需要设置窗体的属性是(D)
A)Appearance
B)Visible
C)Enable
D)Autoredraw
10.在窗体上画一个名称为Command1的命令按钮，编写以列程序：
Private Sub Command1_Click( )
Dim a As Integer
Static b As Integer
a = a + b
b = b + 4
Print a,b
End Sub
程序运行后，单击该命令按钮三次，屏幕上显示的值是(D)
A)4 12
B)0 4
C)4 8
D)8 12
al Basic是一种面向对象的程序设计语言，构成对象的三要素是(B)
A)属性、控件和方法
B)属性、事件和方法
C)窗体、控件和过程
D)控件、过程和模块
12.下列程序段错误的是(A)
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)
13.表达式String(1,"I am student") + Replace("am harass","rass","ppy") & "!"的值是(A)
A)"I am happy!"
B)"I am student I am s am harass studentam happy!"
C)"I am student am harass!"
D)"I am student am happy!"
14.下列程序段中，能正常结束循环的是(C)
A)I = 1
Do
I = I + 2
Loop Until I = 10
B)I = 5
Do
I = I + 1
Loop Until I < 0
C)I = 10
Do
I = I + 1
Loop Until I > 0
D)I = 6
Do
I = I - 2
Loop Until I = 1
15.引用列表框(List1)最后一个数据项应使用的表达式是(B)
A)(Count)
B)(Count-1)
C)(ListCount)
D)(ListCount-1)
16.有如下程序：
Option Base 1
Private Sub Command1_Click()
Dim x,y(3,3)
x = Array(1,2,3,4,5,6,7,8,9)
For i = 1 To 3
For j = 1 To 3
y(i,j) = x(i*j)
If(j > = i) Then Print y(i,j);
Next j
Next i
End Sub
运行时输入出的结果是(D)
A)1 2 3
2 4 6
4 6 8
B)1 2 3
2 4 6
3 6 9
C)1
2 4
3 6 9
D)1 2 3
4 6
9
17.在窗体上画一个名称为Command1的命令按钮，编写如下程序：
Private Sub Command1_Click()
Print pl(3,7)
End Sub
Public Function pl(x As Single,n As Integer) As Single
If n=0 Then
pl=1
Else
If n Mod 2=1 Then
pl=x*x+n
Else
P1=x*x-n
End If
End If
End Function
程序运行后，单击该命令按钮，屏幕上显示的结果是(D)
A)2
B)1
C)0
D)16
18.以下属性和方法中，可重定义坐标系的是(C)
A)DrawStyle属性
B)DrawWidth属性
C)Scale方法
D)ScaleMode属性
19.在窗体上画一个文本框，然后编写如下事件过程：
Private Sub Form_Load()
= ""
ocus
For i = 1 To 5
Sum = Sum +i
Next i
= Sum
End Sub
上述程序的运行结果是(D)
A)在文本框中输出15
B)在文本框中输出0
C)在文本框中输出不定值
D)出错
20.已知x代表某个百分制成绩，下列程序段用于显示对应的五级制成绩，正确的是(C)
A)If x > = 60 Then
Print "及格"
ElseIf x > = 70 Then
Print "中"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 90 Then
Print "优"
Else
Print "不及格"
End If
B)If x < 90 Then
Print "良"
ElseIf x < 80 Then
Print "中"
ElseIf x < 70 Then
Print "及格"
ElseIf x < 60 Then
Print "不及格"
Else
Print "优"
End If
C)If x > = 90 Then
Print "优"
ElseIf x > = 80 Then
Print "良"
ElseIf x > = 70 Then
Print "中"
ElseIf x > = 60 Then
Print "及格"
Else
Print "不及格"
End If
D)Select Case x
Case x > = 90
Print "优"
Case x > = 80
Print "良"
Case x > = 70
Print "中"
Case x > = 60
Print "及格"
Case Else
Print "不及格"
End Select
21.下面说法不正确的是(D)
A)滚动条的重要事件是Change和Scroll
B)框架的主要作用是将控件进行分组，以完成各自相对独立的功能
C)组合框是组合了文本框和列表框的特性而形成的一种控件
D)计时器控件可以通过对Visible属性的设置，在程序运行期间显示在窗体上
22.在窗体上画一个名称为Check1复选框，在程序运行的过程中，若选中复选框，则e的值是(D)
A)True
B)2
C)0
D)1
23.在下列关于菜单的说法中，错误的是(B)
A)每一个菜单项都是一个控件，与其他控件一样都有自己的属性和事件
B)除了Click事件之外，菜单项还能响应其他的如 DblClick等事件过程
C)菜单项的快捷键不可以任意设置
D)在程序执行时，如果菜单项的Enabled属性为False，则该菜单项变成灰色，不能被用户选择
24.下面关于多重窗体的叙述中，正确的是(B)
A)作为启动对象的Main 子过程只能放在窗体模块内
B)如果启动对象是Main 子过程，则程序启动时不加载任何窗体，以后由该过程根据不同情况决定是否加载窗体或加载哪一个窗体
C)没有启动窗体，程序不能执行
D)以上都不对
25.与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件，当用户按上并且释放一个键后，这三个事件发生的顺序是(A)
A)KeyDown、KeyPress、KeyUp
B)KeyDown、KeyUp、KeyPress
C)KeyPress、KeyDown、、KeyUp
D)没有规律
26.要从磁盘上读入一个文件名为“c:”的顺序文件，下面程序段正确的是(A)
A)F="c:"
Open F For Input As # 1
B)F="c:"
Open "F" For Input As # 2
C)Open "c:" For Output As # 2
D)Open c: For Input As # 1
27.下列关于过程叙述不正确的是(D)
A)过程的传值调用是将实参的`具体值传值递给形参
B)过程的传址调用是将实参在内存的地址传递给形参
C)过程的传值调用参数是单向传递的，过程的传址调用参数是双向传递的
D)无论过程传值调用还是过程传址调用，参数传递都是双向的
28.执行了下面程序后，组合框中数据项的值是(D)
Private Sub Form_Click()
For i=1 to 6
tem i
Next i
For i= 1 to 3
veItem i
Next i
End Sub
A)1 5 6
B)1 3 5
C)4 5 6
D)2 4 6
29.若在Shape 控件内以FillStyle属性所指定的图案填充区域，而填充图案的线条颜色由FillColor属性指定，非线条的区域由Back Color属性填充，则应(A)
A)将Shape控件的FillSte属性设置为2至7间的某个值，BackStyle属性设置为1
