填空题
执行下面的程序,单击Command1按钮后,显示在窗体上的第一行内容是
1,最后一行内容是
2。
Option Explicit
Dim A As Integer
Private Function fun1(X As Integer, Y As Integer)As Integer
Dim I As Integer
For I=1 To Y
Y=Y+1
X=X+1
A=X+Y
Next I
fun1=A+Y
Print fun1
End Function
Private Sub Command1_Click()
Dim B As Integer
A=2
B=2
Print fun1(fun1(A, A), B)
Print A
Print B
End Sub