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