4答案

4.2习题

一、选择题

1. 以下不正确的单行结构条件语句是（ ）。

（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 ＂*****＂

以上程序（ ）。

（A） 没有输出

（B） 有语法错

（C） 输出#####

（D） 输出*****

3. 运行下面程序后，在弹出的消息窗口中显示的是（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 4. 下面语句书写正确的是（ ）。

(A) If a>max Then max=a Else max=b (B) If a>max Then max=a

Else max=b

End If

(C) If a>max Then

max=a

D、Good

End If

Else

max=6

( D) If a>max Then

max=a

Else

max=6

End If

5. 执行下列程序段输出的结果为（ a=3

IF a>0 Then

Print＂###＂

Else

Print＂$$$＂

。 ）

End If

A) ###$$$

B) $$$###

C) ###

D) $$$

6. 下面程序段运行后,显示的结果是( )

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, 下列说法正确的是( )

(A) X=1和Y=1均为赋值语句 (B) X=1和Y=1均为关系表达式

(C) X=1为关系表达式,Y=1为赋值语句 (D) X=1为赋值语句,Y=1为关系表达式

x1f(x)2x38. 用IF语句表示分段函数，

x1x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岁条件的人数，不正确的语句是( )

(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. 下面程序段求两个数中的大数，( )不正确。

(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） Then t = x: x = y: y = t

If （2） Then t = x: x = z: z = t

If yPrint x, y, z

End Sub

2．下面事件过程的功能是：输入一个字符，若它是大写字母，则把它变成小写字母，若它是小写字母，则把它变成大写字母；若它是其它字符，则它的值不变，在横线上填上适当内容。

Private Sub Command1_Click()

Dim ch As String * 1

ch = InputBox(\"请输入一个字符：\")

If （1） Then

ch = LCase(ch)

Else If （2） Then

ch = UCase(ch)

Endif

Print ch

End Sub

3. 单行结构条件语句必须在（ ）行内书写完。

4. 判别变量I是否为偶数，若为偶数就把它显示出来使用的单行结构条件语句为（ ）。

5. 判别变量x是否大于0，若大于0，则累加到变量s1中，否则，累加到变量s2中，使用

的单行结构条件语句为（ ）。

6. 给定分段函数 ，（ ）。

2x1x0y0x02x1x0求y的值，使用的单行结构条件语句为

a2x2y0x17. 下面事件过程的功能是：输入x和a的值，按公式

axaxa或xaxa或xa

计算y的值，在横线上填上适当内容。

Private Sub Command1_Click()

Dim x!, a%, y#

x = InputBox(\"x=\")

a = InputBox(\"a=\")

If (1) Then y = 0

Else

If (2) 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)

Case 1, 3, 5, 7, 8, 10, 12

days = 31

(2)

days = 30

Case 2

If (3) 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) 时，执行该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

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

1．(1)x2．（1）Asc(ch) >= 65 And Asc(ch) <= 90

（4）Asc(ch) >= 97 And Asc(ch) <= 122

3．1

4．If i Mod 2=0 Then print x

5．If x>0 Then s1=s1+x Else s2=s2+x

6．If x>0 Then y=2*x+1 Else If x=0 Then y=0 Else y=2*x-1

7.(1）x = a Or x = -a

（2）-a < x And x < a

8. （1）month

(2) Case 4,6,9,11

(3) year Mod 4 = 0 And year Mod 100 <> 0 Or year Mod 400 = 0

9. （1）这些常数中的某一个

（2）这个范围内的值

（3）Is后的关系