问题
单项选择题
下列程序段的运行结果是( )。
Sub sele()
Dim n As Integer
i=21:n=3
Do While i＞n
i=i-n
Loop
Print i
End Sub
A．2
B．4
C．5
D．3
答案
参考答案：D
解析： 该程序段的执行是：第1次循环后：i=i-n=18；第2次循环后：i=i-n=15,第3次循环后：i=i-n=12；第4次循环后：i=i-n=9；第5次循环后：i=i-n=6；第6次循环后：i=i-n=3；此时循环条件不成立，退出循环。