窗体上命令按钮 Command1 的事件过程如下:
Private Sub Command1_Click()
Dim total As Integer
total = s(1) + s(2)
Print total
End Sub
Private Function s(m As Integer) As Integer
Static x As Integer
For i = 1 To m
x = x + 1
Next i
s = x
End Function
运行程序,第3次单击命令按钮Command1时,输出结果为 __【7】__ 。
Private Sub Command1_Click()
Dim total As Integer
total = s(1) + s(2)
Print total
End Sub
Private Function s(m As Integer) As Integer
Static x As Integer
For i = 1 To m
x = x + 1
Next i
s = x
End Function
运行程序,第3次单击命令按钮Command1时,输出结果为 __【7】__ 。
本题解析
1/8
