16岁女孩，左小腿上段肿胀疼痛半年，近1个月来肿胀明显，夜间痛明显。查体：左胫骨上端肿胀严重，压痛明显，浅静脉怒张，扪及一6cm×7cm硬性肿块，固定，边界不清。X线片示左胫骨上段呈虫蚀状溶骨性破坏，骨膜反应明显，可见Codman三角。在住院行手术治疗前，应常规进行下（）

A.淋巴结活检

B.头颅CT

C.胃肠道钡餐检查

D.胸部X线摄片

E.骨髓穿刺

在窗体上画一个命令按钮，然后编写如下程序：
Function fun(By Val num As Long)As Long
Dim k As Long
k=1
num=Abs(num)
Do While num
k=k*(num\10)
num=num\10
Loop
fun=k
End Function
Private Sub Command1_Click()
Dim n As Long
Dim r As Long
n=InputBox(“请输入一个数”)
n=CLng(n)
r=fun(n)
MsgBox r
End Sub
程序运行后，单击命令按钮，在输入对话框中输入234，消息框显示的结果为______。