vb大一选择程序结构习题答案答案_精品文档.doc

1、4.2习题一、选择题 1. 以下不正确的单行结构条件语句是（ D ）。（A）If xy Then Print xy（B）If x Then t=t*x（C）If x Mod 3=2 Then Print x（D）If xmax Then max=a Else max=b End If(B) If amax Then max=aElse max=bEnd If(C) If amax Then max=aElsemax=6( D) If amax Then max=aElsemax=6End If5. 执行下列程序段输出的结果为（ C ）。 a=3 IF a0 Then Print# Else P

2、rint$ End IfA) #$B) $#C) #D) $6. 下面程序段运行后,显示的结果是( B ) dim xif 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语句表示分段函数，下列程序段不正确的是( A )(A)If x=1 then f=sqr(x+1) (B) I

3、f x=1 then f=sqr(x+1)F=x*x+3 if x=1 then f=sqr(x+1) If x1 then f=x*x+3 9. 下面IF语句统计满足性别（sex）为男，职称（duty）为副教授以上，年龄（age）小于40岁条件的人数，不正确的语句是( D )(A) If sex=”男” and age0 then n=n+1 (B) If sex=“男” and age40 and (duty=“教授” or duty=“副教授”) then n=n+1 (C) If sex=“男” and age40 and right(duty,2)=“教授” then n=n+1 (

4、D) If sex=“男” and agey,x,y) (B) Ifxy then MAX=X ELSE MAX=Y(C) MAX=XIF 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) xy Then t = x: x = y: y = tIf (2)xz

5、Then t = x: x = z: z = tIf y= 65 And Asc(ch) = 65ch = LCase(ch) Else If（2）Asc(ch) = 97 And Asc(ch) 0 Then s1=s1+x Else s2=s2+x） 6. 给定分段函数 ，求y的值，使用的单行结构条件语句为（ If x0 Then y=2*x+1 Else If x=0 Then y=0 Else y=2*x-1 ）7. 下面事件过程的功能是：输入x和a的值，按公式计算y的值，在横线上填上适当内容。Private Sub Command1_Click()Dim x!, a%, y#x =

6、InputBox(x=)a = InputBox(a=)If (1) x = a Or x = -a Theny = 0Else If (2) -a x And x a Then y = Sqr(a * a - x * x) Else y = x - 1 End IfEnd IfPrint y=; yEnd Sub8. 下面事件过程的功能是：输入年份和月份，输出该月有多少天，在横线上填上适当内容。提示：每年的1，3，5，7，8，10，12月每月有31天；每年的4，6，9，11月，每月有30天；每年的2月份，闰年为29天，平年为28天。年份能被4整除，但不能被100整除或年份能被400整除的年份

7、均为闰年，否则，为平年。Private Sub Command1_Click()Dim year%, month%, days%year = InputBox(请输入年份：)month = InputBox(请输入月份：)Select Case (1) month Case 1, 3, 5, 7, 8, 10, 12days = 31 (2) Case 4,6,9,11days = 30Case 2If (3) year Mod 4 = 0 And year Mod 100 0 Or year Mod 400 = 0 Thendays = 29Elsedays = 28End IfEnd Se

8、lectPrint year; 年; month; 月有; days; 天End Sub9. 若case子句中的表达式表列为用逗号把若干个常数分隔开来，则它的含义是：当测试表达式的值等于 (1) 这些常数中的某一个 时，执行该case子句相应的程序块。若case子句中的表达式表列具有形式：表达式1 To 表达式2，则它的含义是：当测试表达式的值等于 (2) 这个范围内的值 时，执行该case子句相应的程序块。若case子句中的表达式表列具有形式：Is关系运算符 表达式，则它的含义是：当测试表达式的值满足 (3) Is后的关系 时，执行该case子句相应的程序块。三阅读下列程序，写出执行结果1.

9、 Private Sub Command1_Click()Dim a%, b%, c%, s%, w%, t%a = -1: b = 3: c = 3s = 0: w = 0: t = 0If c 0 Then s = a + bIf a = 0 Then If c 0 Then w = a - b Else t = cEnd Ifc = a + bPrint a, b, cPrint s, w, tEnd Sub1答案 -1 3 22 0 02. 当x的输入值分别为2.5、8、4和15时，写出下列事件过程输出结果Private Sub Command1_Click()Dim x%, y%x = InputBox(请输入x的值：)Select Case xCase 1, 3, 5y = x *2Case 6 To 10y = x + 1Case 2, 4y = 3* xCase Is 10y = x * x + 7End SelectPrint x=; x, y=; yEnd Sub2.答案X=2 y=6X=8 y=9X=4 y=12X=15 y=232