20岁，男性，腰痛6个月，右髂窝部包块1个月，低热、盗汗、消瘦。查体：见腰椎僵直，棘
题型：单项选择题
问题：
20岁，男性，腰痛6个月，右髂窝部包块1个月，低热、盗汗、消瘦。查体：见腰椎僵直，棘突叩痛，右髂窝包块直径约10cm大小，波动感。 Hb10.1S/dl，ESR45mm/h，X线示3-4间隙变窄，L4椎体破坏，腰大肌影增宽。最可能的诊断是
A．强直性脊柱炎
B．椎体转移癌
C．椎体结核
D．化脓性脊柱炎
E．腰椎骨关节病
题型：单项选择题
窗体上有一个名称为Text1的文本框和一个名称为Command1、标题为"计算"的命令按钮，如图所示。函数fun及命令按钮的单击事件过程如下，请填空。
Private Sub Command1_Click()
Dim x As Integer
x=Val(InputBox("输入数据"))
Text1=Str(fun(x)+fun(x)+fun(x))
End Sub
Private Function fun(ByRef n As Integer)
If n Mod 3=0 Then
n=n+n
Else
n=n*n
End If
fun=n
End Function
当单击命令按钮，在输入对话框中输入2时，文本框中显示的是______。