一、选择题：35题，2分/题，共70分

    下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。

1.保存一个工程至少应保存两个文件，这两个文件分别是（B）
A)文本文件和工程文件
B)窗体文件和工程文件
C)窗体文件和标准模块文件
D)类模块文件和工程文件

2.当对命令按钮的Picture属性装入.bmp图形文件后，命令按钮上并没有显示所需的图形，原因是没有对某个属性设置为1，该属性是（B）
A)MousePicture
B)Style
C)DownPicture
D)DisabledPicture

3.下面叙述正确的是（B）
A)Spc函数既能用于Print方法中，也能用于表达式
B)Space函数既能用于Print方法中，也能用于表达式
C)Spc函数与Space函数均生成空格，没有区别
D)以上说法均不对

4.假设变量bool_x是一个布尔型(逻辑型)的变量，则下面正确的赋值语句是（D）
A)bool_x="False"
B)bool_x=.False.
C)bool_x=#False#
D)bool_x=False

5.要存放如下方阵的数据，在不浪费存储空间的基础上，能实现声明的语句是（D）
1 2 3
2 4 6
3 6 9
A)Dim A(9) As Integer
B)Dim A(3,3) As Integer
C)Dim A(-1 to 1,-3 to -1) As Single
D)Dim A(-3 to -1,1 to 3) As Integer

6.下面子过程语句说明合法的是（D）
A)Sub f1（ByVal n() As Integer）
B)Sub f1（n() As Integer）As Integer
C)Function f1（f1 As Integer） As Integer
D)Finction f1（ByVal n As Integer）

7.已知X>Y，A>B，正确表示它们之间关系的式子是（B）
A)Sgn(Y-X)-sgn(A-B)<0
B)Sgn(Y-X)-Sgn(A-B)=-2
C)Sgn(Y-X)-Sgn(A-B)=0
D)Sgn(Y-X)-Sgn(A-B)=-1

8.设a=2,b=4,c=6，下列表达式的值为真的是（D）
A)a>b And c<a
B)a>b Or c<a
C)a>b Xor c<a
D)a>b Eqv c<a

9.设S=“中华人民共和国”，表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（B）
A) “中华民国”
B) “中国人民”
C) “中共人民”
D) “人民共和”

10.下列表达式的值为2123的是（B）
A) Val("123asd") & 2000
B) Val("123asd") + 2000
C) Str(123) & "2000"
D)Str(123)+"2000"

11.下列叙述不正确的是（C）
A)InputBox函数返回值为字符型
B)MsgBox函数返回值为所单击按钮的键值
C)MsgBox语句返回值为所单击按钮的键值
D)Shell函数返回值为所执行文件的工作代码

12.下列叙述不正确的是（A）
A)命令按钮的默认属性为Caption
B)标签的默主属性为Caption
C)复选框的默认属性为value
D)滚动条的默认属性为value

13.下列各程序段中，正确的是（C）
A)If 10 < 10 Then a=a+10
B)If a> 10 Then a= a+1 Else a= a+ 5 End If
C)If a <=10 Then
a=a + 1
Else
End If
D)If a <=10 Then
a=a + 1
Else If a <=20 Then
a=a + 10
End If

14.在窗体上画一个命令按钮，名称为Command1。然后编写如下程序：
Private Sub Command1_Click()
For I= 1 to 2
For J=1 to I
Print String (I,"Hello");
Next J
Print
Next I
End Sub
程序运行后，如果单击命令按钮，则在窗体上显示的内容是（B）
A)H
HH
HHH
B)H
HHHH
C)HHHHH
D)H
HH
HHHH

15.为了使图像框与图片框的大小适应图片的大小 ，下边属性组设置正确的是（B）
A)Autosize= Ture Stretch= True
B)Autosize= Ture Stretch= False
C)Autosize= False Stretch= True
D)Autosize= False Stretch= False

16.假设 x的值为5，则在执行以下语句时，其输出结果为“OK”的Select case语句是（C）
A)Select Case X
Case 10 to 1
Print "OK"
End Select
B)Select Case X
Case Is > 5,Is <5
Print "OK"
End Select
C)Select Case X
Case Is > 5,1,3 to 10
Print "OK"
End Select
D)Select Case X
Case 1,3 Is > 5
Print "OK"
End Select

17.有如下程序：
Private Sub Form_Click()
Dim check As Boolean, n As Integer
check=False
n= 0
Do
Do While n< 10
n=n + 1
If n= 5 Then
check=True
Exit Do
End If
Print n；
Loop
Loop Until check=True
End Sub
程序运行后，输出的结果是（B）
A)1 2 3
B)1 2 3 4
C)1 2 3 4 5
D)1 2 3 4 5 6

18.在运行阶段，要在文本框Text1获得焦点时选中文本框中所有内容，对应的事件过程是（A）
A)Private Sub Text1_GotFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
B)Private Sub Text1_LostFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub
C)Private Sub Text1_Change()
Text1.SelStart=0

Text1.SelLength=Len(Text1.text)
End Sub
D)Private Sub Text1_SetFocus()
Text1.SelStart=0
Text1.SelLength=Len(Text1.text)
End Sub

19.有如程序（D）
Private Sub From_Activate()
Dim a
a=Array(1 ,2 ,3, 4, 5)
For i=LBound(a) To UBound(a)
a(i)=i*a(i)
Next i
Print i,LBound(a),UBound(a),a(i)
End Sub
A)4 0 4 25
B)5 0 4 25
C)不确定
D)程序出错

20.在窗体上画一个水平滚动条，名称为HScroll1;再画一个文本框，名称为Text1。要想使用滚动条滑块的变化量来调用文本框中文字的大小，则可满足的语句是（C）
A)Text1.FontName= HScroll1.Max
B)Text1.FontSize= HScroll1.Min
C)Text1.FontSize= HScroll1.value
D)Text1.FontBold= HScroll1.value

21.在下列程序中，无论使用鼠标左键还是右键都能弹出菜单，且弹出菜单中的菜单项都响应鼠标单的是（D）
A)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,1
End Sub
B)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,0
End Sub
C)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test
End Sub
D)Sub Form_MouseDown (Button As Integer,Shift As Integer, X As Single, Y As Single)
PopupMenu_test,2
End Sub

22.假设在窗体上建立了一个通用对话框，其名称为CommonDialog1，然后画一个命令按钮Command1,并编写如下事件过程：
Private Sub Command1_Click()
CommonDialog1.F

[1] [2] [3] 下一页