有如下程序：　　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．0 0

B．1 1

C．2 2

D．1 2

调节晶状体曲度的是（）

A.提上睑肌

B.眼轮匝肌

C.睫状肌

D.眼外肌

E.瞳孔括约肌