第4章 4.1选择结构习题

选择结构习题
一、单项选择题
1.假设Text1文本框中输入了学生的成绩，以A，B，C，D，E字符表示不同的等级，下
列语句中_________可用于判断输入数据是否正确。

A．If “A”<=Text1<=”E” Then MsgBox “输入正确” Else MsgBox “输入错误”
B．I f “A”<=Text1 Or Text1<=”E” Then MsgBox “输入正确” Else MsgBox “输入错误”
C．I f A<=Text1 And Text1<=E Then MsgBox “输入正确” Else MsgBox “输入错误”
D．If “A”<=Text1 And Text1<=”E” Then MsgBox “输入正确” Else MsgBox “输入错误”
2.下面程序段的功能是求两个数中的大数，________是不正确的。

A.Max=IIf(x>y,x,y)
B.If x>y Then Max =x Else Max=y
C.Max=x; If y>=x then Max =y
D.If y>=x Then Max=y;Max=x;
3.对于选择结构语句If x=10 Then y=100，下列说法正确的是_________。

A．x=10 和y=100均为赋值语句
B．x=10 和y=100均为关系表达式
C．x=10 为关系表达式，y=100为赋值语句
D．x=10 为赋值语句，y=100为关系表达式
4.关于结构化程序设计的描述，下述说法中正确的是____________。

A．面向对象、顺序执行 B.面向过程、事件驱动
C．面向过程、顺序驱动 D.面向对象、事件驱动
5.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
Private Sub Command1_click()
x=val(InputBox(“Input ”))
Select Case x
Case 1,3
Print “分支1”
Case Is>4
Print “分支2”
Case Else
Print “Else分支”
End Select
End Sub
程序运行后，如果在输入对话框中输入2，则窗体上显示的是__________。

A．分支1 B. 分支2 C. Else 分支 D.程序出错
6. 以下Case语句中错误的是________。

A．Case 0 To 10 B. Case Is>10 C. Case Is>10 and Is<50 D. Case 3,5,Is>10
7. 下面程序段：
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. 不通过
8.下面If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是______
A.If sex=“男”And age＜40 And InStr(duty,“教授”)＞0 Then n=n+1
B.If sex=“男”And age＜40 And (duty=“教授”Or duty=“副教授”) Then n=n+1
C.If sex=“男”And age＜40 And Right(duty,2)= “教授” Then n=n+1
D.If sex=“男”And age＜40 And duty=“教授”And duty=“副教授” Then n=n+1
9.下面程序段求两个数中的大数，不正确的是_____
A. Max=IIf(x＞y,x,y)
B.If x＞yThen Max=x Else Max=y
C. Max=x
D.If y＞=x Then Max=y
If y＞x Then Max=y Max=x
10.下面语句：
w=Choose(Weekday(“2000,5,1”),“Red”,“Green”,“Blue”,“Yellow”)执行后，变量w中的值是
A.Null
B.“Red”
C.“Green”
D.“Yellow”
11.下面程序段：
Dim x
If x Then Print x Else Print x+1
运行后，显示的结果是
A.1
B.0
C.-1
D.显示出错信息
12. 若TestMe的值为1500，则函数IIf(TestMe>1000,”Large”,”Small”)返回________。

A．Large B. Small C.1 D. 2
二、填空题
1.下面程序运行后输出的结果是 (1) 。

x=Int(Rnd)+3
If x^2＞8 Then y=x^2+1
If x^2=9 Then y=x^2-2
If x^2＜8 Then y x^3
Print y
2.下面的程序段是检查输入的算术表达式中圆括号是否配对，并显示相应的结果。

本程序在文本框输入表达式，边输入，边统计，以回车符作为表达式输入结束，然后显示结果。

请在下划线处填入相应的内容。

Dim count1%
Private Sub Text1_ KeyPress(KeyAscii As Integer)
If (2) =“(”Then
Count1=count1+1
ElseIf (3) =“)”Then
(4)
End If
If KeyAscii=13 Then
If (5) Then
Print“左右括号配对”
ElseIf (6) Then
Print“左括号多于右括号”；count1;“个”
Else
Print“右括号多于左括号”；-count1;“个”
End If
End If
End Sub
[注意]
该题中统计括号个数的变量count1在通用声明段声明，若在Text1_KeyPress内声明，程序会产生什么结果？
3.输入若干字符，统计有多少个元音字母、有多少个其他字母，不区分大小写，直接按Enter 键结束，并显示结果。

其中，CountY中放元音字母个数，CountC中放其他字符数。

Dim CountY%,CountC%
Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim C$
C= (7)
If“A”＜=C And C＜=“Z”Then
Select Case (8)
Case (9)
CountY=CountY+1
Case (10)
CountC=CountC+1
End Select
End If
If (11) Then
Print“元音字母有”；CountY；“个”
Print“其它字母有”；CountC；“个”
End If
End Sub
三、编程题
1.输入一个字符，如果是大写字母则将其转换为小写字母输出,如果是小写字母则将其转换为大写字母输出。

2.在购买某物品时，若所花的钱x在下述范围内，所付钱按对应折扣支付。

通过InputBox函数输入金额，输出应付金额。