Function F(a As Integer) b = 2 Static c As Int
Function F(a As Integer)
b = 2
Static c As Integer
b = b + 1
c = c + 2
F = a + b + c
End Function
Private Sub Command1_Click()
Dim a As Integer
a = 5
For i = 1 To 3
Print F(a);
Next i
End Sub
写出程序运行时,单击命令按钮在窗体上的输出结果。