单选题 设有如下程序：
Private Sub Form_Click()
Dim a,k As Integer
Dim n As Integer,S As Integer
a=Array(1,1,1,2,2,2)
For k=LBound(a)To UBound(a)
n=n+k
s=s+a(k)
Next
Print n;s
End Sub
程序运行后，如果单击窗体，则在窗体上输出的内容为