F.unction Fun(a As Integer)
Static c
b=0:b=b+2:c=c+2
F.=a*b*c
E.nd Function
Private Sub Command1_Click()
D.im a As Integer
a=2
F.or i=1 To 2
Print Fun(a);
Next
E.nd Sub
运行上面的程序,单击命令按钮,输出结果为
A.8 16
B.9 18
C.10 20
D.7 14