2016年最新vb期末复习题(1)
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
Visual Basic 期末复习题库
单项选择题判断题填空题编程题
1) 下列程序运行后，输出的结果为______。
B=1
Do while (b<40)
b=b*(b+1)
Loop
Print b
a) 42
b) 39
c) 6
d) 1 答案：A
2) 设执行以下程序段时依次输入1、3、5，执行结果为_____。
Dim a(4) As Integer
Dim b(4) As Integer
For K =0 To 2
a(K+1) =Val(InputBox(“请输入数据："))
b(3-K) =a(K+1)
Next K
Print b(K)
a) 1
b) 3
c) 5
d) 0 答案：A
3) 下列程序执行后，变量s的值为______。
Dim s As long ,x As Integer
s=0:x=1
Do While (x<10)
s=s+x
x=x+2
Loop
Print s
a) 10
b) 25
c) 50
d) 100 答案：B
4）菜单控件只包括一个事件，即（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。C
A、GotFocus
B、Load
C、Click
D、KeyDown
5）滚动条控件(如图所示)的Max属性所设置的是（2）。
A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值
B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量
6) 编写如下事件过程：
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"，应在窗体上执行以下_______操作。
a) 同时按下 Shift 键和鼠标左键
b) 同时按下 Shift 键和鼠标右键
c) 同时按下Ctrl、Alt 键和鼠标左键
d) 同时按下 Ctrl、Alt 键和鼠标右键答案：D
7) 当变量x=2,y=5时，以下程序的输出结果为____。
Do until y>5
x=x*y
y=y+1
loop
print x
a) 2
b) 5
c) 10
d) 20 答案：C
8) 当执行以下程序时，在名为lblResult的标签框内将显示_____。
Private Sub cmdlt_click()
Dim I,R
R=0
For I=1 To 5 Step 1
R=R+I
Next I
lblResult.Caption=Str（R）
End Sub
a) 字符串15
b) 整数15
c) 字符串5
d) 整数5 答案：A
9) 如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。 X=1
do
x=x+3
print x
loop until(___)
a) x>=8
b) x<=8
c) x>=7
d) x<=7 答案：A
10) 若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。
c=a-b
else
c=b-a
End if
elseif b>3 then
c=a*b
else
c=a mod b
End if
a) 2
b) -1
c) 1
d) 6 答案：A
11) 设有如下语句：
str1=inputbox("输入","","练习")
从键盘上输入字符串“示例”后，str1的值是___。
a) “输入”
b) “”
c) “练习”
d) “示例”答案：D
12) 我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下， Private Sub Text1_change( )
Text2.text=Ucase(Text1.text)
End Sub
则在Text1文本框输入“visual basic”，Text2将______。
a) Text2中无内容显示。
b) Text2显示"VISUAL BASIC"。
c) Text2显示"visual basic"
d) Text1显示"visual basic" 答案：B
13) 下列程序的运行后s的值是_____。
S=0
For x=99 to 1 Step -2
s=s+x
Next x
Print s
a) 100
b) 500
c) 2500
d) 5000 答案：C
14) 下列程序的执行结果是____。
K=0
For I=1 To 3
a=I^I^K
print a;
Next I
a) 1 1 1