执行下面的程序,单击按钮 Command1 ,在窗体上显示的第一行是 ,第二行是 ,第三行是 。 Option Explicit Private Sub Command1_Click() Dim x As Integer, i As Integer x = 1 For i = 1 To 3 x = x * i Print fun1(x) Next i End Sub Private Function fun1(x As Integer) As Single Static y As Single y = y + x fun1 = y / 2 End Function