在窗体上画一个命令按钮(其Nmne属性为Command1)，然后编写如下代码：
Option Base l
Private Sub Command1_Click( )
Dim a
s=0
a=Array(1，2，2，4)
j=1
For i=4 To 1 Step-1
s=s+a(i)*j
j=j*10
Next i
Print s
End Sub
运行上面的程序，单击命令按钮，其输出结果是

A．4321

B．1234

C．34

D．12

患儿，便后有出血症状，系鲜血，不与便相混，大便次数及性质尚属正常，首先考虑哪种检查（）

A.X线钡剂灌肠

B.肛镜检查

C.直肠指诊

D.乙状结肠镜检查

E.便常规检查