填空题
执行下列程序,单击Command1按钮,在窗体上显示的变量a的值为
1,变量c的值为
2,窗体上的输出内容为
3。
Option Explicit
Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer
a=1:b=2:c=3
Print fun(a, b, c)+fun(a, b, c)
End Sub
Private Function fun(x As Integer, y As Integer, z As Integer)As Integer
z=x
x=x+y
y=y+z
z=x+y
fun=x+y+z
End Function