问题
单项选择题
下列程序段的运行结果是( )。 Sub sele() Dim n As Integer i=21: n=3 Do While i ＞ ni=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；此时循环条件不成立，退出循环。