在窗体上画一个名称为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
　　Print a(3)
End Sub
程序运行后，单击命令按钮，则在窗体上显示的内容是( )。

A．4

B．5

C．6

D．7