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

矿图按投影方法和投影面的不同，可分为几类？根据成图方法的不同可分为几类？