小弟正在复习想靠二级!遇到个题目高不懂,请大家帮帮!!!
在窗体上 有两个文本框 和一个按钮
程序如下
Dim y As Integer
Private Sub command1_click()
Dim x As Integer
x = 2
Text1.Text = fun2(fun1(x), y)
Text2.Text = fun1(x)
End Sub
Private Function fun1(x As Integer) As Integer
x = x + y: y = x + y
fun1 = x + y
End Function
Private Function fun2(x As Integer, y As Integer) As Integer
fun2 = 2 * x + y
End Function
问单击一次 和两次
两个文本框分别显示的是什么
我试过了 单击一次 显示的是10 10 单击两次 显示的是58 58
但我不知道 这个结果是怎么出来的
在窗体上 有两个文本框 和一个按钮
程序如下
Dim y As Integer
Private Sub command1_click()
Dim x As Integer
x = 2
Text1.Text = fun2(fun1(x), y)
Text2.Text = fun1(x)
End Sub
Private Function fun1(x As Integer) As Integer
x = x + y: y = x + y
fun1 = x + y
End Function
Private Function fun2(x As Integer, y As Integer) As Integer
fun2 = 2 * x + y
End Function
问单击一次 和两次
两个文本框分别显示的是什么
我试过了 单击一次 显示的是10 10 单击两次 显示的是58 58
但我不知道 这个结果是怎么出来的

