VB控制结构及答案
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
VB控制结构
一、单选题
1. 下面的程序运行后，显示的结果是________。
Dim x%
If x Then Print x+1 Else Print x
A） 1 B） 0 C）显示错误信息 D） 2
2. 语句If x = 1 Then y = 1, 下面说法正确的是______。
A） x = 1 和 y = 1均为赋值语句
B） x = 1 和 y = 1均为关系表达式
C） x = 1 为赋值语句，y = 1 为关系表达式
D） x = 1 为关系表达式，y = 1 为赋值语句
3. 下面分段函数 , 下面不正确的程序段是______。
A） If x >= 1 then f=sqr(x+1) B） If x >= 1 then f=sqr(x+1) f=x*x+3 If x < 1 then f=x*x +3
C） If x >= 1 then f=sqr(x+1) _ D） If x < 1 then f=x*x +3 _ Else f = x*x +3 Else f=sqr(x+1)
5. 下面的程序段，显示的结果是 ______。
Dim x
x= Int(RnD） + 5
Select Case x
Case 5
Print “优秀”
Case 4
Print “良好”
Case 3
Print “及格”
Case Else
Print “不及格”
End Select
A）不及格 B）良好 C）及格 D）优秀6. 下面程序段求两个数中较大数，________不正确。
A） Max = IIF(x > y, x, y)
B） If x > y Then Max = x Else Max = y
C） Max = x
If y >= x Max = y
D） If y >= x Max = y
Max = x
7. 下列循环语句能正常结束的是________。
A） i = 5 B） i = 1
Do Do
i = i + 1 i = i + 2
Loop Until i < 0 Loop Until i = 10 C） i = 10 D） i = 6
Do Do
i = i - 1 i = i - 2
Loop Until i < 0 Loop Until i = 1 12. 变量未赋值时，数值型变量的值为______。
A）0 B）空串"" C）ll D）没任何值
13. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()
For n=1 To 20
If n Mod 3<>0 then m=m+n\3
Next n
print n
End sub
程序运行后，如果单击命令按钮，则窗体上显示的内容是______。
A）15 B）18 C）21 D）24
14. 窗体中存在命令按钮Command1，其Click事件代码如下：
Private Sub Command1_Click()
X = 2
Y = 1
If X * Y < 1 Then Y = Y - 1 Else Y = -1
Print Y - X > 0
End Sub
程序运行后，单击命令按钮，输出结果为______。
A）True B）False C）-1 D）1
15. 设a=5，b=6，c=7，d=8，执行下列语句后，x的值为______。
x=IIf((a>B） And (c>D） , 10, 20)
A）10 B）20 C）True D）False
16. 执行以下程序段
a$= "abbacddcba"
For i = 6 To 2 Step -2
X= Mid(a,i,i)
Y= Left(a,i)
Z= Right(a,i)
Z= UCase(X & Y & Z)
Next i
Print z
输出结果为______。
A）ABA B）BBABBA C）ABBABA D）AABAAB
17. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：Private Sub Command1_Click()
c=1234
c1=Trim(Str(C）)
For i=1 To 4
Print ____
Next
End Sub
程序运行后，单击命令按钮，要求在窗体上显示如下内容：
1
12
123
1234
则在下划线处应填入的内容为______。
A）Right(c1,i) B）Left(c1,i) C）Mid(c1,i,1) D）Mid(c1,i,i)
18. InputBox函数返回值的类型为______。
A）数值 B）字符串
C）变体 D）数值或字符串（视输入的数据而定）
19．MsgBox函数返回值的类型为______。
A）整型数值 B）字符串
C）变体 D）数值或字符串（视输入的数据而定）
20. 窗体上画一个命令按钮和一个文本框，其名称分别为command1 和text1，把文本框的text属性设置为空白，然后编写如下事件过程：
Private Sub Command1_Click()
a=InputBox("Enter an Integer")
b=InputBox("Enter an Integer")
Text1.Text=b+a
End Sub
程序运行后，单击命令按钮，如果在输入对话框中分别输入8和10，则文本框中显示的内容是______。A）108 B）18 C）810 D）出错
21. 在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As Integer,s As Integer
a=8
s=1
Do