第3章课后答案.doc

习题、选择题 1．若要退出For循环，可使用的语句为( )。 A．Exit B．Exit Do C．Time D．Exit For 2．假定有以下程序段，则语句Print i*j的执行次数是( )。 For i=1 to 3 For j=5 to 1 Step –1 Print i*j Next j,i A．15B．16C．17D．18 3．针对语句If =1 Then j=1，下列说法正确的是( )。 A．=1和=1均为赋值语句 B．均为关系表达式 C．=1为关系表达式，=1为赋值语句D．=1为赋值语句，=1为关系表达式 4．执行以下语句后，a的值是( )。 Dim a As Integer a = 1 Do Until a = 100 a = a + 2 Loop A．99B．100 C．溢出 D．101 5．在过程中有语句For I=N1 To N2 Step N3，在该循环体内有下列4条语句，其中( )会影响循环执行次数。 ①N1=N1+1 ②N2=N2+N3 ③I=I+N3 ④N3=2*N3 A．B．C．D．①②③④ 6．下列程序运行后的结果是( )。 Private sub Command_Click( ) For i=1 To 4 X=4 For j=1 To 3 X=3 For k=1 To 2 X=X+6 Next k,j,i Print X End Sub A．7B．15C．157D．538 7．For Next 循环体执行1次是( )。 A．初值大于终值，且步长大于0 B．初值小于终值，且步长小于0 C．初值等于终值，且步长大于0 D．初值小于终值，且步长小于终值与初值之差 8．列程序段的执行结果为( )。 a=75 If a60 Then I=1 If a70 Then I=2 If a80 Then I=3 If a90 Then I=4 Print I=;I A．I=1B．I=2C．I=3D．I=4 9．有如下过程，程序运行后，依次输入数值3020、10、1，输出结果为( )。 Private Sub Command1_Click( ) b=10 DoUntilb=1 a=InputBox(请输入a的值) a=Val(A) b=InputBox(请输入b的值) b=Val(b) a=ab Loop Print a End Sub A．6000B．10C．200D．6000 10．执行下面的程序段后，x的值为( )。 x=5 For I= To 20 Step 2 x=x+I\5 Next I A．21B．22C．23D．24 、填空题 1．分析下列语句，给出执行结果 Private Sub Form_Click( ) Const pi As Single = 3.14 a% = 7 If a Mod 4 pi Then Print 努力 Else Print 学习 End If End Sub 执行结果为__________，其判决条件的值为__________。 2．有如下程序，若你的工资为2988元，则该程序的输出结果为__。 Private Sub Form_Click( ) Dim x As Currency, y As Currency x = Val(InputBox(输入你的工资数目, 交税计算窗口, 1000)) If x = 1000 Then y = 0 ElseIf x = 2000 Then y = x * 0.1 Print 你应该缴纳 y 元税金 ElseIf x = 3000 Then y = x * 0.2 Print 你应该缴纳 y 元税金 Else y = x * 0.3 Print 你应该缴纳 y 元税金 End If End Sub 3．阅读程序，执行结果为________。 Private Sub Form_Click( ) Dim a As Integer, b As Integer a = 1: b = 0 Do b = b + a * a a = a + 1 Loop While a 0