【单选题】

阅读程序：

Function Fun( aAs Integer)
Static c
b=0:b=b+2:c=c+2
F=a*b*c
End Function
Private SubCommandl _Click( )
Dim aAs Integer
a=2
For i = 1 To 2
Print Fun (
A．;
Next
End