下列程序的功能是：单击窗体时随机生成20个两位数依次赋值给一个由20个元素组成的数组，然后把数组反序存放，再输出。
Option Base 1
Private Sub Form Click()
Dim a(20)As Integer，i As Integer
Dim t As Integer，j As Integer
Randomize
For i=1 To 20
a=10+Int(90*Rnd)
Print a(i)；
Next
Print
i=1: 【4】
Do While i＜j
t=a(i): 【5】 a(j)=t
i=i+1: j=j-1
Loop
For i=1 To 20
Print a(i);
Next i
Print
End Sub

男，48岁，因吞咽哽咽感半年来院就诊，目前仅能进半流质食物。查体：稍消瘦，锁骨上未及肿大淋巴结。食管吞钡X线示：食管中下段4cm长之局限性管壁僵硬，粘膜部分中断，钡剂尚能通过。

进一步的检查应是（）.

A.胸部CT

B.MRI

C.食管镜检查及组织活检

D.胸腔镜检查

E.纵隔镜检查