|
一、选择题：35题，2分/题，共70分
下列各题A)、B)、C)、D)四个选项中，只有一个选项是正确的，请将正确选项涂写在答题卡相应位置上，答在试卷上不得分。
1.执行以下程序段后,变量c的值为( )
a = " Visual Basic Programing"
b = "Quick"
c =b & UCase (Mid(a,7,6) & Right(a,11)
A)Visual BASIC Programing
B)Quick Basic Programing
C)QUICK Basic Programing
D)Quick BASIC Programing
分析:
2.不能正确表示条件“两个整型变量A和B之一为0，但不能同时为0”的布尔表达式是（ ）
A)A*B=0 and A+B<>0
B)(A=0 or B=0)and (A<>0 OrB<>0)
C)not(A=0 And B=0) and (A=0 or B=0)
D)A*B=0 and (A=0 or B=0)
分析:
3. 下面子过程语句说明合法的是（ ）
A)Function fl(ByVal n%)
B)Sub fl (n%)As Integer
C)Function fl%(fl%)
D)Sub fl(ByVal n%())
分析:
4.对窗体编写如下代码：
Option Base 1
Private Sub Form _KeyPress(KeyAscii As Integer)
a=Array (237,126,587,48,498)
ml=a(1)
m2=1
If KeyAscii=13Then
For i=2 To 5
If a (i)>ml Then
ml=a (i)
m2=i
End If
Next i
End If
Print ml;
print m2
End Sub
程序运行后，按回车键，输出结果为（ ）
A)48 4
B)237 1
C)587 3
D)498 4
分析:
5.Visual Basic 中没有提供下列（ ）事件
A)MouseDown
B)MouseUp
C)MouseMove
D)MouseExit
分析:
6.执行下面对面的程序后，X的值为（ ）
x=50
Fox i=1 To 20 Step 2
x=x+i\5
Next i
A)66
B)67
C)68
D)69
分析:
7.为了防止用户随意将光标置于控件之上，需做的工作是（ ）
A)将控件的Enabled属性设置为False
B)将控件的TabStop属性设置为False
C)将控件的TabStop属性设置为True
D)将控件的TabIndex属性设置为0
分析:
8.表达式String(2,"Shanghai")的值是（ ）
A) Sh
B) Shanghai
C) ShanghaiShanghai
D) SS
分析:
9.为了在按回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为True,这个属性是（ ）
A) value
B) Defaul
C) Cancel
D) Enabed
分析:
10.visual Basic 提供的缺省窗体包含（ ）
A) 标题栏
B)菜单栏
C)工具条
D)状态栏
分析:
11.假定有一个菜单项，名为MenuItem,为了在运行时该菜单项失效（变灰），应使用的语句为（ ）
A)MenuItem.Enabled=False
B)MenuItem.Enabled=True
C)MenuItem.Visible=True
D)MenuItem.Visible=False
分析:
12.下列不能打开菜单编辑器的操作是（ ）
A)按Ctrl+E
B)单击工具栏中的“菜单编辑器”按钮
C)执行“工具”菜单中的“菜单编辑器”命令
D)按Shift+Alt+M
分析:
13.列表框（如图2-6所示）经过下列操作后，剩余的项目是（ ）
Listl.RemoveItem l
Listl.RemoveItem 2
Listl.RemoveItem l
A)aa
B)bb
C)cc
D)dd
分析:
14.要暂时关闭计时器，应把计时器的某个属性设置为False，这个属性是（ ）
A)Visible
B)Timer
C)Enabled
D)Interval
分析:
15.InputBox函数返回值的类型为（ ）
A)数值
B)字符串
C)变体
D)数值或字符串（视输入的数据而定）
分析:
16.当窗体的AutoRedraw属性采用默认值时，若在窗体装入时使用绘图方法绘制图形，则应将程序放在（ ）
A)Paint事件
B)Load事件
C)Initilize事件
D)Click事件
分析:
17.下列可以打开立即窗口的操作是（ ）
A)Ctrl+D
B)Ctrl+E
C)Ctrl+F
D)Ctrl+G
分析:
18.如是要向工具箱中加入控件和部件，可以利用“工程”的菜单中的（ ）命令
A)引用
B)部件
C)工程属性
D)添加窗体
分析:
19.若要清除列表框的所有内容，可用来实现的方法是（ ）
A)Removeitem
B)Cls
C)Clear
D)以上均不可以
分析:
20.假定有下面的过程：
Function Func(a As Integer,b As Integer)As Integer
Static m As Integer, i As Integer
m = 0
i = 2
i = i + m +1
m = i + a + b
Func = m
End Function
在窗体上画一个命令按钮，然后编写如下事件过程：
Private Sub Commandl_Click()
Dim k As Integer, m As Integer
Dim p As Integer
k=4
m=1
p=Func(k,m)
Print p;
p=Func(k,m)
Print p
End Sub
程序运行后，单击命令按钮，输出结果为（ ）。
A)8 17
B)8 16
C)8 20
D)8 8
分析:
21.如何使图象（Image）控件中的图像自动适应控件的大小？（ ）
A)将控件的AutoSize属性主，设为True
B)将控件的AutoSize属性设为False
C)将控件的Stretch属性设为True
D)将控件的Strech属性设为False
分析:
22.当对DrawWidth进行设置后，将影响（ ）。
A)Line、Circle、Pset方法
B)Line、Shape控件
C)Line、Circle、Point方法
D)Line、Circle、Pset方法和Line、Shape控件
分析:
23.以下语句的输出结果是（ ）。
Print Format(32548.5,″000，000.00″)
A)23548.5
B)32,548.5
C)032,548.50
D)32,548.50
分析:
24.执行下列语句后整型变量a的值是多少？（ ）
If(3-2)>2 Then
a=10
ElseIf(10/2)=6 Then
a=20
Else
a=30
End If
A)10
B)20
C)30
D)不确定
分析:
25.在代码中定义了一个子过程：
Sub P(a,b)
…
End Sub
下面（ ）调用该过程的格式是正确的。
A)Call P
B)Call P 10,20
C)Call P(10,20)
D)P(10,20)
分析:
26.阅读下面的程序段：
For i=1 To 3
For j=1 To i
For k=j To 4
a=a+1
Next k
Next j
Next i
执行上面的三重循坏后，a的值为（ ）。
A)9
B)14
C)20
D)21
分析:
27.在窗体上画一个文本框（其Name属性为Textl），然后编写如下事件过程：
Private Sub Form_Load()
Textl.Text=""
Textl.SetFocus
For i= l To 9
Sum=Sum+i
Next i
Textl.Text=Sum
End Sub
上述程序的运行结果是（ ）。
A)在文本框Textl中输出45
B)在文本框Textl中输出0
C)出错
D)在文本框Textl中输出不定值
分析:
28.在窗体（Name属性为Forml）上画两个文本框（其Name属性分别为Textl和
Text2）和一个命令按钮（Name属性为Commandl），然后编写如下两个事件过程：
Private Sub Commandl_Click()
a=Textl.Text+Text2.Text
Print a
End Sub
Private Sub Form_Load()
Textl.Text=""
Text2.Text=""
End Sub
程序运行后，在第一个文本框（Textl）和第二个文本框（Text2）中分别输入78和87，然后单击命令按钮，则输出结果为（ ）。
A)165
B)8778
C)7788
D)7887
分析:
29.对变量名说法不确的是（ ）。
A)必须是字母开头，不能是数字或其他字符
B)不能是Visual Basic的保留字
C)可以包含字母、数字、下划线和标点符号
D)不能超过255个字符
分析:
30.下面关于多重窗体的叙述中，正确的是（ ）。
A)作为启动对象的Main子过程只能放在窗体模块中
B)如果启动对象是Main子过程，则程序启动时不加载任何窗体，以后由该过 程根据不同情况决定是否加载及加载哪一个窗体
C)没有启动窗体，程序不能运行
D)以上都不对
分析:
31.为了在运行时能显示窗体左上角的控制框（系统菜单），必须（ ）。
A)把窗体的ControlBox属性设置为False,其他属性任意
B)把窗体的ControlBox属性设置为True,并且把BoderStyle属性设置为1~5
C)把窗体的ControlBox属性设置为False,同时把BoderStyle属性设置为非0值
D)把窗体的ControlBox属性设置为True,同时把BoderStyle属性设置为0值
分析:
32.阅读程序：
Sub subP(b() As Integer)
For i=l To 4
b=(i)=2*i
Next i
End Sub
Private Sub Commandl_Clik()
Dim a(l To 4)As Integer
a(1)=5
a(2)=6
a(3)=7
a(4)=8
subP a()
For i=l To 4
Print a(i);
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为（ ）。
A)2 4 6 8
B)5 6 7 8
C)10 12 14 16
D)出错
分析:
33.CommonDialog控件可以显示（ ）对话框。
A)4种
B)5种
C)6种
D)7种
分析:
34.在设计应用程序时，通过( )窗口可以查看到应用程序工程中的所有组成部分。
A)代码窗口
B)窗体设计窗口
C)属性窗口
D)工程资源管理器窗口
分析:
35.假定时钟控件的Interval属性为1000,Enabled属性为True,并且有下面的事件过程，计算机将发出（ ）beep声。
Sub Timerl_Timer()
For i=l to 10
Beep
Next i
End Sub
A)1000次
B)10000次
C)10次
D)以上都不对
分析:
二、填空：每空2分，共30分。
请将正确答案分别写在答题卡中序号为[1]至[15]的横线上，答在试卷
上不得分。
1.在3种不同类型的组合框中，只能选择而不能输入数据的组合框是[1] 。
2.假定建立了一个工程，该工程包括两个窗体，其名称（Name属性）分别为
Form2,启动窗体为Forml。在Forml上画一个命令按钮Commandl,程序运行后，要求当单击命令按钮时，Forml窗体消失，显示窗体Form2,请将程序补充完整。
Private Sub Commandl_Click()
[2] Forml
Form2 [3]
End Sub
3.执行下面的程序段后，s的值为[4]。
s=5
For i=2.6 to 4.9 Step 0.6
s=s+l
Nest i
4.把窗体的KeyPreview属性设置为True,并编写如下两个事件过程：
Private Sub Form_KeyDown(KeyCode As Integer,Shift As Integer)
Print KeyCode;
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Print KeyAscii
End Sub
程序运行后，如果按下a键，则在窗体上输出的数值为[5]和[6]。
5.语句Print 5*5\5/5的输出结果是[7]。
6.程序执行结果s的值是 [8] 。
Private Sub Commandl_Click()
i = 0
Do
i = i + l
s = i + s
Loop Until i > = 4
Print s
End Sub
7.表达式Fix(-12.08)+Int(-23.82)的值为[9]。
8.在窗体上画一个命令按钮（其Name属性为Commandl），然后编写如下代码：
Private Sub Commandl_Click()
Dim M(10) As Integer
For k=1 to 10
M(k)=12-k
Next k
x=6
Print M(2+M(X))
End Sub
程序运行后，单击命令按钮，输出结果是[10]。
9.假定有一个名为pic2.gif的图形文件，要在运行期间把该文件装入一个图片框（Picturel），应执行的语句是[11]。
10.控件和窗体的Name属性只能通过[12]设置，不能在[13]期间设置。
11.假定当前日期为2002年12月16日，星期一，则执行以下语句后，输出结果
是16、12、2002、[14]。
Print Day(Now)<CR>
print Month(Now)<CR>
print Year(Now)<CR>
Print Weekday(Now)<CR>
12、要想在文本框中显示垂直滚动条，必须把[15]属性设置为2，同时还应把
Multiline属性设置为True。
二级VB模拟试卷(四)参考答案
一、(1)D (2)D (3)A (4)C (5)D (6)A (7)A (8)D (9)B (10)A (11)A (12)D (13)A (14)C (15)B (16)A
(17)D (18)B (19)C (20)D (21)C (22)A (23)C (24)C (25)C (26)C (27)C (28)D (29)C (30)B
(31)B (32)A (33)C (34)D (35)D
分析:
二、[1]下拉式列表框（或下拉式） [2]Unload [3]Show [4]9 [5]65 [6]97 [7]25 [8]10 [9]-36
[10]14 [11]Picturel.Picture=LoadPicture("pic2.gif") [12]设计期间
[13]程序运行（或运行） [14]2 [15]Scrollbars
|
