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

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

[单项选择题] 下列程序段的运行结果是( )。 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；此时循环条件不成立，退出循环。