单项选择题

下列程序段的运行结果是( )。
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