下列程序段的运行结果是()。

Sub sele()

Dim nAs 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