文档介绍：Visual Basic期末复****题库
单项选择题判断题填空题编程题
下列程序运行后，输出的结果为 。
B二 1
Do wh订e (b<40)
b=b*(b+1)
Loop
Print b
42
39
6
1 答案：A
设执行以下程序段时依次输入1、3、5,执行结果为 o
Dim a(4) As Integer
Dim b(4) As Integer
For K =0 To 2
a(K+l) =Val (InputBox("请输入数据："))
b(3-K) =a(K+l)
Next K
Print b(K)
1
3
5
0 答案：A
下列程序执行后，变量s的值为 。
Dim s As long , x As Integer
s=0:x=l
Do Wh订e (x<10)
s=s+x
x=x+2
Loop
Print s
10
25
50
100 答案：B
菜单控件只包括一个事件，即 ⑴ ，当用鼠标单击或键盘选中后按“回车”键
时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。C
A、 GotFocus B、 Load C、 Click D、 KeyDown
滚动条控件(如图所示)的Max属性所设置的是 (2) 。
A、 滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值
B、 单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量
C、 单击滚动条的箭头区域时，滚动条中滚动块的最大移动量
D、 滚动条控件无该属性
编写如下事件过程:
Private Sub Form_MouseDown(Button As Integer , Shift As Integer, X As Single, Y As Single)
If Shift=6 And Button=2 Then
Print "Hello"
End If
End Sub
程序运行后，为了在窗体上输出"Hello",应在窗体上执行以下 操作。
同时按下Shift键和鼠标左键
同时按下Shift键和鼠标右键
同时按下Ctrl、Alt键和鼠标左键
同时按下Ctrl、Alt键和鼠标右键 答案：D
当变量x=2,y=5时，以下程序的输出结果为—o
Do until y>5
x=x*y
y=y+]
loop
print x
2
5
10
20 答案：C
当执行以下程序时，在名为lblResult的标签框内将显示 。
Private Sub cmdclick()
Dim I,R
R=0
For 1=1 To 5 Step 1
R 二 R+[
Next I
lblResult. Caption=Str (R)
End Sub
字符串15
整数15
字符串5
整数5 答案：A
如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入
X=1
do
x=x+3
print x
loop urrUl( )
x>=8
x<=8
x>=7
x<=7 答案：A
若整型变量a的值为2、b的值为3,则下列程序段执行后整型变量c的值为 o
If a>5 then
if b<4 then
c=a~b
else
c=b~a
End if
elseif b>3 then
c=a*b
else
c=a mod b
End if
2
-1
1
6 答案：A
设有如下语句：
str 1 二inputbox (〃输入"，〃练****quot;)
从键盘上输入字符串“示例”后，strl的值是—。
“输入”
“”
“练****br/>“示例” 答案：D
我们在一个窗体上建立两个文本框，名称分别为Textl和Text2,事件过程如下, Private Sub Textl_change()
Text2. text=Ucase(Textl. text)
End Sub
则在 Textl 文本框输入"visual basic”，Text2 将 。
Text2中无内容显示。
Text2 显示"VISUAL BASIC"。
Text2 显示〃visual basic"
Textl 显示"visual basic" 答案：B
下列程序的运行后s的值是 o
S=0
For x=99 to 1 Step -2
s=s+x
Next x
Print s
100
500
2500
5000 答案：C
下列程序的执行结果是 o
K=0
For 1=1 To 3
厂厂K
prirrt a;
Next
I
a)
1
1
1