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) 编写如下事件过程：
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 键和鼠标左键
下列属于vb字符串函数是 d) 同时按下 Ctrl、Alt 键和鼠标右键 答案：D
5) 当变量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
6) 当执行以下程序时，在名为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
7) 如下有一段不完整的程序段，如果要求该程序执行3次循环，则应在程序中的括号里输入______。
X=1
do
x=x+3
print x
loop until(___)
a) x>=8
b) x<=8
c) x>=7
d) x<=7 答案：A
8) 若整型变量a的值为2、b的值为3，则下列程序段执行后整型变量c的值为______。
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
a) 2
b) -1
c) 1
d) 6 答案：A
9) 设有如下语句：
str1=inputbox("输入","","练习")
从键盘上输入字符串“示例”后，str1的值是___。
a) “输入”
b) “”
c) “练习”
d) “示例” 答案：D
10) 我们在一个窗体上建立两个文本框，名称分别为Text1和Text2，事件过程如下，
Private Sub Text1_change( )
=)
End Sub
则在Text1文本框输入“visual basic”，Text2将______。
a) Text2中无内容显示。
b) Text2显示"VISUAL BASIC"。
c) Text2显示"visual basic"
d) Text1显示"visual basic" 答案：B
11) 下列程序的运行后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
12) 下列程序的执行结果是____。
K=0
For I=1 To 3
a=I^I^K
print a;
Next I
a) 1 1 1
b) 1 2 3
c) 0 0 0
d) 1 4 9 答案：A
13) 下列程序的执行结果是_____。
Dim a(5) As String
Dim b As Integer
Dim I As Integer
For I =0 To 5
a(I)=I+1
Print a(I)
Next I
a) 123456
b) 6
c) 654321
d) 0 答案：A
14) 下列程序的执行结果为_____。
Dim intsum As Integer
Dim I As Integer
intsum=0
For I=20.2 To 5 Step -4.7
intsum=intsum +I
Next I
Print intsum
a) 150
b) 200
c) 50
d) 0 答案：C
15) 下列程序的执行结果为_____。
Dim S As Integer,n As Integer
S=0:n=1
Do While n<=100
S=S+n
n=n+1
Loop
Print S
a) 5050
b) 2500
c) 3000
d) 4000 答案：A
16) 下列程序的执行结果为_____。
A=100:b=50
If a>b Then
a=a-b
Else
b=b+a
End if
Print a
a) 50
b) 100
c) 200
d) 10 答案：A
17) 下列程序的执行结果为________。
Dim intsum As Integer
Dim I As Integer
intsum=0
For I=0 To 50 Step 10
intsum=intsum+I
Next I
Print intsum
a) 150
b) 200
c) 50
d) 0 答案：A
18) 下面程序执行后，X的结果为_____。
X=0
For I =1 to 5
For j=I to 5
X=X+1
Next j
Next I
Print X
a) 5
b) 10
c) 15
d) 20 答案：C
19) 下面程序执行的结果是____。
Private Sub Form_Click()
A$="123":B$="456"
C=Val(A$)+Val(B$)
Print C\100
End Sub
a) 123
b) 3
c) 5
d) 579 答案：C
20) 下列循环语句将执行______次。
A=100
Do
Print a
a=a+1
Loop until a<=10
a) 1
b) 10
c) 100
d) 死循环 答案：D
21) 下面程序段的循环结构执行后， 的输出值是_____。
程序段为：
For I=1 to 10 step 2
y=y+I
Next I
print I;
a) 25
b) 10
c) 11
d) 因为Y的初值不知道，所以不确定 答案：C
22) 写列程序段的执行结果____。
A="abbacddcba"
for I=6 to 2 step -2
x=mid(a,I,I)
y=left(a,I)
z=right(a,I)
z=x & y & z
next I
print Ucase(z)
a) ABA
b) AABAAB
c) BBABBA
d) ABBABA 答案：C
版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。
发表评论