[单项选择题] 编写如下事件过程: Option Base 1 Private Sub Form Click()Dim x1()As IntegerDim i As IntegerDim s As IntegerReDim x1(3)For i = 1 To UBound(x1) x1(i)=i + 1Next iCall sub1(x1)For i = 1 To UBound(x1) s = s + x1(i)Next iPrint s End Sub Private Sub sub1(n()A