假定有如下的Sub过程：
Sub s fun(x As Single,y As Single)
t=x
x=t/y
y=t Mod y
End Sub
在窗体上添加一个命令按钮(名为Command1)，然后编写如下事件过程：
Private Sub Command1_Click()
Dim a As single
Dim b As single
a=5
b=4
sfun a,b
MsgBox a & chr(10)+chr(13)&b
End Sub
打开窗体运行后，单击命令按钮，消息框的两行输出内容分别为( )。

A．1和1

B．1.25和1

C．1.25和4

D．5和4

女孩，13岁，发热2周余，胸腹部间断的出现环形红斑，化验：血红蛋白100g/L，WBC13.6×10⁹/L，N0.82，L0.17，ESR50mm/h，CRP（+），ASO500μ／ml，心电图正常，诊断风湿热，应首选的治疗为：（）

A.阿司匹林

B.阿司匹林+强的松

C.青霉素+强的松

D.青霉素

E.青霉素+阿司匹林