有如下程序：　　Private SubCommand1Click()　　　　Dim aAs Single　　　　Dim bAs Single　　　　a=5：b=4　　　　Call S(a，B、　　End Sub　　Sub S(xAs Single，yAs Single)　　　　t=x　　　　x=t\y　　　　y=t Mod y　　End Sub　　在调用运行上述程序后，a和b的值分别为
A．0 0
B．1 1
C．2 2
D．1 2