admin 管理员组文章数量: 1086019
2024年3月27日发(作者：school clinic)
4.2习题
一、选择题
1. 以下不正确的单行结构条件语句是（ D ）。
（A） If x>y Then Print ＂x>y＂
（B） If x Then t=t*x
（C） If x Mod 3=2 Then Print x
（D） If x<0 Then y=2*x-1: Print x End If
2. 给定程序段
Dim a As Integer, b As Integer, c As Integer
a=1：b=2：c=3
If a=c-b Then Print ＂#####＂ Else Print ＂*****＂
以上程序（ C ）。
（A） 没有输出（B） 有语法错（C） 输出#####（D） 输出*****
3. 运行下面程序后，在弹出的消息窗口中显示的是（ D ）。
Private Sub Form_Click()
score=Int(Rnd)+5
Select Case score
Case 5
a$="Good"
Case 4
a$="Ok"
Case 3
a$="Pass"
Case Else
a$="Bad"
End Select
MsgBox a$
End Sub
A、Bad B、Pass C、Ok D、Good
4. 下面语句书写正确的是（ D ）。
(A) If a>max Then max=a Else max=b End If
(B) If a>max Then max=a
Else max=b
End If
(C) If a>max Then
max=a
Else
max=6
( D) If a>max Then
max=a
Else
max=6
End If
5. 执行下列程序段输出的结果为（ C ）。
a=3
IF a>0 Then
Print＂###＂
Else
Print＂$$$＂
End If
A) ###$$$
B) $$$###
C) ###
D) $$$
6. 下面程序段运行后,显示的结果是(
dim x
) B
if x then print x else print x+1
(A) 1 (B) 0 (C) -1 (D) 显示出错信息
7: 语句IF x=1 THEN y=1, 下列说法正确的是( C )
(A) X=1和Y=1均为赋值语句 (B) X=1和Y=1均为关系表达式
(C) X=1为关系表达式,Y=1为赋值语句 (D) X=1为赋值语句,Y=1为关系表达式
x1
f(x)
2
x3
8. 用IF语句表示分段函数，
x1
x1
下列程序段不正确的是( A )
(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) F=x*x+3 (D) f=sqr(x+1)
If x>=1 then f=sqr(x+1) If x<1 then f=x*x+3
9. 下面IF语句统计满足性别（sex）为男，职称（duty）为副教授以上，年龄（age）小于40岁条件
的人数，不正确的语句是( D )
(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
10. 下面程序段求两个数中的大数，( D)不正确。
(A) Max=IIF(x>y,x,y)
(B) Ifx>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
二、填空题
1. 下面事件过程的功能是：输入三个整数x、y和z，按从大到小顺序输出这三个数，在横线上填上适当
内容。
Private Sub Command1_Click()
Dim x!, y!, z!
x = InputBox("x=")
y = InputBox("y=")
z = InputBox("z=")
If (1) x If (2)x If y Print x, y, z End Sub 2．下面事件过程的功能是：输入一个字符，若它是大写字母，则把它变成小写字母，若它是小写字母， 则把它变成大写字母；若它是其它字符，则它的值不变，在横线上填上适当内容。 Private Sub Command1_Click() Dim ch As String * 1 ch = InputBox("请输入一个字符：") If (1) Asc(ch) >= 65 And Asc(ch) <= 90 Then Asc (ch) >= 65 ch = LCase(ch) Else If（2）Asc(ch) >= 97 And Asc(ch) <= 122 Then ch = UCase(ch) Endif Print ch End Sub 3. 单行结构条件语句必须在（ 1 ）行内书写完。 4. 判别变量I是否为偶数，若为偶数就把它显示出来使用的单行结构条件语句为（If i Mod 2=0 Then print x ）。 5. 判别变量x是否大于0，若大于0，则累加到变量s1中，否则，累加到变量s2中，使用 的单行结构条件语句为（ If x>0 Then s1=s1+x Else s2=s2+x） 6. 给定分段函数 ， 2x1x0 y 0x0 2x1x0 求y的值，使用的单行结构条件语句为 （ If x>0 Then y=2*x+1 Else If x=0 Then y=0 Else y=2*x-1 ） a 2 x 2 y 0 x1 7. 下面事件过程的功能是：输入x和a的值，按公式 axa xa或xa xa或xa 计算y的值，在横线上填上适当内容。 Private Sub Command1_Click() Dim x!, a%, y# x = InputBox("x=") a = InputBox("a=") If (1) x = a Or x = -a Then y = 0 Else If (2) -a < x And x < a Then y = Sqr(a * a - x * x) Else y = x - 1 End If End If Print "y="; y End Sub 8. 下面事件过程的功能是：输入年份和月份，输出该月有多少天，在横线上填上适当内容。 提示：每年的1，3，5，7，8，10，12月每月有31天；每年的4，6，9，11月，每月有30天；每年 的2月份，闰年为29天，平年为28天。年份能被4整除，但不能被100整除或年份能被400整除的年份 均为闰年，否则，为平年。 Private Sub Command1_Click() Dim year%, month%, days% year = InputBox("请输入年份：") month = InputBox("请输入月份：") Select Case (1) month Case 1, 3, 5, 7, 8, 10, 12 days = 31 (2) Case 4,6,9,11 days = 30 Case 2 If (3) year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then days = 29 Else days = 28 End If End Select Print year; "年"; month; "月有"; days; "天" End Sub 9. 若case子句中的表达式表列为用逗号把若干个常数分隔开来，则它的含义是： 当测试表达式的值等于 (1) 这些常数中的某一个 时，执行该case子句相应的程序块。 若case子句中的表达式表列具有形式：表达式1 To 表达式2，则它的含义是：当测试表达式的值等于 (2) 这个范围内的值 时，执行该case子句相应的程序块。 若case子句中的表达式表列具有形式：Is关系运算符 表达式，则它的含义是：当测试表达式的值满足 (3) Is后的关系 时，执行该case子句相应的程序块。 三．阅读下列程序，写出执行结果 1. Private Sub Command1_Click() Dim a%, b%, c%, s%, w%, t% a = -1: b = 3: c = 3 s = 0: w = 0: t = 0 If c > 0 Then s = a + b If a <= 0 Then If c <= 0 Then w = a - b End If Else If c > 0 Then w = a - b Else t = c End If c = a + b Print a, b, c Print s, w, t End Sub 1答案 -1 3 2 2 0 0 2. 当x的输入值分别为2.5、8、4和15时，写出下列事件过程输出结果 Private Sub Command1_Click() Dim x%, y% x = InputBox("请输入x的值：") Select Case x Case 1, 3, 5 y = x *2 Case 6 To 10 y = x + 1 Case 2, 4 y = 3* x Case Is > 10 y = x * x + 7 End Select Print "x="; x, "y="; y End Sub 2.答案 X=2 y=6 X=8 y=9 X=4 y=12 X=15 y=232
版权声明：本文标题：vb大一选择程序结构习题答案答案 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/p/1711480594a596230.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论