运行下列程序:Private Sub Form_Click( )Dim a As Integera = 1For i = 1 To 5Call fun1(a)Ne

运行下列程序：

Private Sub Form_Click( )

Dim a As Integer

a = 1

For i = 1 To 5

Call fun1(a)

Next i

Print a

End Sub

Private Sub fun1(x)

y = 2

Do

x = x + y

Loop Until x > 10

End Sub

单击窗体后，则在窗体上显示的结果是( )。

A.5

B.1 2 3 4 5

C.19

D.7