有如下程序： 　　Private Sub Command1 Click() 　　　　Dim a As Single 　　　　Dim b As Single 　　　　a=5：b=4 　　　　Call S(a，B) 　　End Sub 　　Sub S(x As Single，y As Single) 　　　　t=x 　　　　x=t\y 　　　　y=t Mod y 　　End Sub 　　在调用运行上述程序后，a和b的值分别为（ ）。

A．1，2，0
B．2，1，0
C．1，2，1
D．2，1，1

A．Do While <条件> 循环体 Loop
B．While<条件>循环体 Wend
C．Do 循环体 Loop
D．Do Until<条件>循环体 Until <条件>Loop