下列药物中，有大毒的药物是（）

A.丹参

B.马钱子

C.红花

D.骨碎补

E.莪术

下列程序的输出结果是 【15】 。
Private Sub Commandl Click()
Dim a(1 To 20)
Dim i
For i=1 To 20
a(i)=i
Next i
For Each i ln a()
a(i)=20
Next i
Print a(2)
End Sub