有下面程序代码: Private Sub Command1_Click() Dim a, s As Integer a = 7: b = 4 Do c = a Do c = c

admin2015-09-23  41

问题 有下面程序代码:
Private Sub Command1_Click()
    Dim a, s As Integer
    a = 7: b = 4
    Do
        c = a
        Do
            c = c - b
        Loop Until c < b Or c = 0
        Print c;
        a = a - 1
    Loop Until c = 0
End Sub
程序运行产生的输出是

选项 A、0 1 2 3
B、3 2 1 0
C、1 2 3 0
D、2 3 0 1

答案B

解析 先执行内层Do循环,结束后执行外层Do循环。由题意可知, c=a=7,当执行内层Do循环时,c=c-b=3,此时判断条件c < b成立,内层循环结束,执行Print c,输出的第1个值为3,执行a=a-1后,a=6,重复执行Do循环,依次输出2 、1、 0,直至判断条件c=0成立,结束整个循环。故正确答案为选项B。
转载请注明原文地址:https://jikaoti.com/ti/ayJ0FFFM
0

相关试题推荐
最新回复(0)