患者，男，40岁，CT显示腰2椎体骨小梁稀少，增粗，呈颗粒样，最可能的诊断是（）

A.骨质疏松

B.骨质软

C.转移瘤

D.血管瘤

E.骨髓瘤

若有如下sub过程：
Sub sfun(x As Single, y As Single)
t=x
x=t/y
y=t Mod y
End Sub
在窗体中添加个命令按钮command33，对应的事件过程如下：
Private Sub Command33_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