admin 管理员组文章数量: 1184232
2024年3月27日发(作者：下面二叉树的中序遍历是)
（D）
（C）
（B）
（A）
A、Bad
Case 3
Case 4
Case 5
End Sub
Else
a$="Bad"
Case Else
MsgBox a$
End Select
a$="Pass"
a$="Ok"
max=a
一、选择题
a$="Good"
a=1：b=2：c=3
2. 给定程序段
max=6
If x Then t=t*x
If x>y Then Print ＂x>y＂
B、Pass C、Ok
If x Mod 3=2 Then Print x
If x<0 Then y=2*x-1: Print x End If
4.2习题
D、Good
End If
max=a
输出*****
score=Int(Rnd)+5
Select Case score
以上程序（ C ）。
Else max=b
( D) If a>max Then
(C) If a>max Then
Private Sub Form_Click()
(B) If a>max Then max=a
4. 下面语句书写正确的是（ D ）。
Dim a As Integer, b As Integer, c As Integer
1. 以下不正确的单行结构条件语句是（ D ）。
(A) If a>max Then max=a Else max=b End If
（A） 没有输出（B） 有语法错（C） 输出#####（D）
If a=c-b Then Print ＂#####＂ Else Print ＂*****＂
3. 运行下面程序后，在弹出的消息窗口中显示的是（ D ）。
Else
max=6
End If
5. 执行下列程序段输出的结果为（ C ）。
a=3
IF a>0 Then
Print＂###＂
Else
Print＂$$$＂
End If
A) ###$$$
B) $$$###
C) ###
D) $$$
6. 下面程序段运行后,显示的结果是( B )
dim x
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为关系表达式
8. 用IF语句表示分段函数，
f(x)
x
1
2
x
3
x
1
下列程序段不正确的是( A )
x
1
(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) ch = UCase(ch) Endif Print ch End Sub 3. 单行结构条件语句必须在（ 1 ）行内书写完。 ）。 Else If（2）Asc(ch) >= 97 And Asc(ch) <= 122 Then 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） 2x 1x 0 6. 给定分段函数 ， y 0x 0 求y的值，使用的单行结构条件语句为 2x 1x 0 （ If x>0 Then y=2*x+1 Else If x=0 Then y=0 Else y=2*x-1 ） a 2 x 2 7. 下面事件过程的功能是：输入x和a的值，按公式 y 0 x 1 计算y的值，在横线上填上适当内容。 Private Sub Command1_Click() Dim x!, a%, y# x = InputBox("x=") a x a x a 或 x a x a 或 x a 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 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子句相应的程序块。 三．阅读下列程序，写出执行结果 If (3) year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0 Then Else 2.答案 y = x *2 y = x + 1 End If End Sub End Sub 1答案 Case 2, 4 c = a + b End If End Select Dim x%, y% y = 3* x Case Is > 10 Case 6 To 10 Case 1, 3, 5 X=8 y=9 -1 3 2 2 0 0 X=2 y=6 Select Case x Print s, w, t Print a, b, c X=4 y=12 w = a - b If a <= 0 Then If c <= 0 Then s = 0: w = 0: t = 0 a = -1: b = 3: c = 3 y = x * x + 7 Print "x="; x, "y="; y If c > 0 Then s = a + b Dim a%, b%, c%, s%, w%, t% Private Sub Command1_Click() x = InputBox("请输入x的值：") 1. Private Sub Command1_Click() If c > 0 Then w = a - b Else t = c 2. 当x的输入值分别为2.5、8、4和15时，写出下列事件过程输出结果 X=15 y=232
版权声明：本文标题：vb大一选择程序结构习题答案答案-推荐下载 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711480541a596227.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论