vb大一选择程序结构习题答案答案

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=a Else max=b End If (C) If amax Then max=a Else max=6 ( D) If amax Then max=a Else max=6 End If 5. 执行下列程序段输出的结果为（ C ） 。 a=3 IF a0 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语句表示分段函数， 下列程序段不正确的是( A )13)(2xxf (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=sqr(x+1) If x0 then n=n+1 (B) If sex=“男” and agey,x,y) (B) Ifxy 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= 65 And Asc(ch) = 65 ch = LCase(ch) Else If（2）Asc(ch) = 97 And Asc(ch) 0 Then s1=s1+x Else s2=s2+x） 6. 给定分段函数 ， 求 y的值，使用的单行结构条件语句为 012xy （ If x0 Then y=2*x+1 Else If x=0 Then y=0 Else y=2*x-1 ） 7. 下面事件过程的功能是：输入 x和 a的值，按公式 axxay或或102 计算 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 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 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