单项选择题

在窗体上画一个名称为Command1的命令按钮,然后编写如下事件过程:
   Option Base 1   
Private Sub Command1_Click(  )
      Dim a
      a=Array(1,2,3,4,5)
      For i=1 To UBound(a)
       a(i)=a(i)+i-1
Next
Printa(3)
End Sub
程序运行后,单击命令按钮,则在窗体上显示的内容是

A.4
B.5
C.6
D.7