家庭诊视准备工作包括（）

A.访视对象的选择

B.确定访视的目的

C.准备访视用品

D.联络被访家庭

E.安排访视路线

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

B．1 1

C．0 2

D．1 2