在窗体上画一个名为Command 1的命令按钮，然后编写如下程序：
Option Base 1
Private Sub Command1_Click()
Dim Arr
Arr=Array(1, 2, 3, 4, 5)
j=1
For i=5 To 1 Step -1
S=S+Arr(i)*j
j=j*10
Next
Print S
End Sub
程序运行后，单击命令按钮，输出结果为( )。

A．54321

B．123

C．12345

D．345

男性患者，50岁，进食哽噎感，胸骨后异物感1个月，食管钡餐透视见食管下段黏膜紊乱、断裂、管壁僵硬。要确定诊断最常用的方法是

A．食管脱落细胞检查
B．X线钡餐食管检查
C．CT
D．纤维食管镜检查
E．食管内超声检查