有如下程序: Private Sub Form_Click() Dim S As Integer, N As Integer S = 0 Do S = (S + 1) * (S + 2) N = N

admin2015-09-23  22

问题 有如下程序:
Private Sub Form_Click()
    Dim S As Integer, N As Integer
    S = 0
    Do
        S = (S + 1) * (S + 2)
        N = N + 1
    Loop Until S >= 30
    Print N; S
End Sub
运行程序,单击窗体,输出结果是

选项 A、2  42
B、3  182
C、4  220
D、1  30

答案B

解析 通过Do循环,当S >= 30时,退出循环。第一次执行循环体,s=1*2=2,N=1;第二次循环,s=3*4=12,N=2;第三次循环,s=13*14=182,N=3,此时S >= 30,退出循环。故选B项。
转载请注明原文地址:https://jikaoti.com/ti/I6J0FFFM
0

最新回复(0)