一、 选择题（40%）
1、 要使窗体在运行时不可改变大小和没有最大化、最小化按钮，只要对下列（ ）属性进行设置。
（A）Width (B)MinButton (C) BorderStyle (D) MaxButton
2、 当运行程序时，系统自动执行启动窗体的（ ）事件过程。
（A） Load (B)Click (C)Unload (D)GotGocus
3、 下面（ ）是合法的字符常数
（A）CC$ (B)‘CC’ (C)CC (D)“CC”
4、 int((198.555*100+0.5)/100)的值为（ ）
（Ａ）199.6 (B)198.56 (C)200 (D)198
5、 下面程序段求两个数中的大数，（ ）不正确。
（Ａ）Max=iif(x>y, x, y) (B) If x>y Then Maz=x Else Max=y
(C) Max=x
If y>=x Then Max=y
(D) If y>=x Then Max=y
Max=x
6以下正确的为( )
(A) CommonDialog1.Filter=”All Files|*.*|Pictures(*.Bmp)|*.Bmp”
(B) CommonDialog1.Filter=All Files”|”*.*”|”Pictures(*.Bmp)”|”*.Bmp
(C) CommonDialog1.Filter=”All Files|*.*|Pictures(*.Bmp)|*.Bmp”
(D) CommonDialog1.Filter={All Files|*.*|Pictures(*.Bmp)|*.Bmp}
7、当在文本框输入“XYZ”四个字符时，窗体上显示的是（ ）
Private Sub Text1_Change()
Print Text1
End Sub
(A) XXYXYZ (B)AABABCABCD
(C) X (D)ABC
XY
XYZ
８、 程序段不能分别正确显示１！、２！、3！、４！的值（ ）
（Ａ） For I=1 to 4 (B) For I=1 to 4
n=1 For j=1to i
for j=1 to I n=1
n=n*j n=n*j
next j next j
print n print n
next I next I
(C) n=1 (D) n=1
For j=1 to 4 j=1
N=n*j Do while j<=4
Print n n=n*j
Next j print n
J=j+1
Loop
９、以上程序的循环次数为（ ）
For j=8 to 33 Step 3
If j>26 Then Exit For
j=j+1
Next j
(A) 4 (B) 5 (C) 6 (D) 7
10、以上数组声明语句正确的是（ ）
（Ａ） Dim a[3,4] As Integer (B) Dim a(3,4) As Integer
(C) Dim a(n,n) As Integer (D) Dim a(3 4) As Integer
11、以上程序输出的结果是（ ）
Dim a
a=Array(1,2,3,4,5,6,7)
For I=Lbound(a) To Ubound(a)
a(i)=a(i)*a(i)
Next I
Print a(i)
(A) 49 (B) 0 (D)不确定 （Ｄ）出错信息
12、下面子过程语句说明合法的是（ ）
（Ａ）Sub f1(n%) As Integer (B) Sub f1(ByVal n%())
( C) Function f1(ByVal n%) (D) Function f1%(f1%)
13、要想从子过程调用后返回两个结果，下面子过程说明合法的是（ ）
(A) Sub f1(n%, m%)
(B) Sub f1(n%, ByVal m%)
(C) Sub f1(ByVal n%, m%)
(D) Sub f2(ByVal n%, ByVal m%)
14、下面程序运行的结果是（ ）
Public Sub Proc(a%())
Static I%
Do
A(i)=a(i)+1
I=I+1
Loop While I<2
End Sub
Private Sub Command1_Click()
Dim m% ,I% ,x%(10)
For I=0 to 4 : x(i)=I*2: Next I
For I=1 to 2: Call Proc(x); Next I
For I=0 to 4: Print x(i); : Next I
(A) 1 3 5 6 8 (B) 1 3 3 5 6 (C) 2 3 4 4 5 (D) 4 5 6 7 8
15、将数据项“China” 添加到列表框（List1）中成为第一项应该使用（ ）
(A) List1.AddItem “China” ,0 (B) List1.AddItem “China”,1
(C) List1.AddItem 0,”China” (D) List1.AddItem 1,”China”
16、菜单编辑器设计的菜单控件在程序设计中所引用的对象是（ ）
（Ａ）菜单标题 (B) 菜单名称 (C) 菜单快捷键 (D) 菜单索引
17、执行了下面的程序后，列表框中的数据项有（ ）
Sub Form_Click( )
For I=1 to 6
List1.AddItem I
Next I
For I=1 to 3
List1.RemoveItem I
Next I
(A) 4,5,6 (B) 1,3,5 (C) 1,5,6 (D) 2,4,6
18、假定时钟控件的Interval属性为1000，Enabled属性为True,并且有下面的事件过程，计算机将发出（ ）次Beep声
Sub Timer_Timer()
For I=1 to 10
Beep
Next I
End if
End Sub
(A) 1000 (B) 10000 (C)10 (D)以上都不对
19、在窗体从内存卸载的过程中会发生很多事件,发生的顺序为( )
(A) Terminate, QueryUnload, Unload
(B) QueryUnload, Unload, Terminate
(C) QueryUnload, Terminate, Unload
(D) Unload, QueryUnload, Terminate
20 函数调用不可以( )
( A) 出现在一个表达式中 (B) 出现在一个执行语句中
( C) 作为另一个函数的形参 (D) 作为另一个函数的实参
二填空题（10%）
1 对象的三要素是属性,事件和( ).
2刚建立工程时，使窗体上的所有控件具有相同的字体格式，应对（ ）的（ ）属性设置。
3 在文本框中，通过（ ） 属性能获得当前插入点所在的位置。
4 计算离你毕业还有多少个星期的函数表达式为（）（假定毕业日期为08/10/2007）
5滚动条产生Scroll事件是因为( ).
6 当用户同时按下Ctrl 和Alt 时单击鼠标,MouseDown事件过程中的Shift参数值为( )
7控件的( )属性设置为1,启动自动拖放模式. 控件的( )属性决定控件拖放时显示的图标.
8 当对命令按钮改变背景颜色后，选项按钮上并没有显示所改的颜色，原因是没有对（ ）属性设置.
