有如下程序：
Function F(a As Integer)
b = 0
Static C
b = b + 1
c = c + 2
F = a + b + c
End Function
Private Sub Command1_Click()
Dim a As Integer
a = 2
For i=1 To 3
Print F(