[单项选择题] 下列程序段的运行结果是( )。 Sub sele() Dim n As Integer i=21:n=3 Do While i＞n i=i-n Loop Print

参考答案:

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；此时循环条件不成立，退出循环。