有如下程序： 　　Private Sub Commandl_Click() 　　　　Dim a As Single 　　　　Dim b As Single 　　　　a=2：b=4 　　　　Call CS(a，b) 　　End Sub 　　Sub CS(x As Single，y As Single) 　　　　t=X 　　　　x=t\y 　　　　y=t Mod y 　　End Sub 　　程序运行后，单击命令按钮，a和b的值分别为( )。

A． for(int a=1；a<=10；a++)；
B．int a=1；　do　}　　　a++;　}while(a＜=10)
C．int a=1；　while(a＜=10)　}　　　　a++　}
D．for(int a=1；a<=10；a++) a++；

A．4.58
B．5.69
C．24
D．22