胆道蛔虫

A．上腹刀割样痛伴肌紧张
B．上腹烧灼痛伴反酸
C．上腹钻顶样痛
D．右上腹绞痛
E．中上腹持续性剧痛

阅读程序：
Sub subP(b() As Integer)
For i＝1 To 4
b(i)=2 * i
Next i
End Sub
Private Sub Command1_Click()
Dim a(1 To 4) As Integer
a(1)＝5
a(2)＝6
a(3)＝7
a(4)＝8
subP a()
For i＝1 To 4
Print a(i)
Next i
End Sub
运行上面的程序，单击命令按钮，输出结果为

A．2
4
6
8

B．5
6
7
8

C．10
12
14
16

D．出错