(12)下列程序段的运行结果是 Sub sele() Dim n As Integer I=21:n=3 Do While i>n I=i－n Loop

（12）下列程序段的运行结果是 Sub sele() Dim n As Integer I=21:n=3 Do While i>n I=i-n Loop Print i End SubA.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；此时循环条件不成立，退出循环。