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