![[填空题] 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，如图5所示，然后编写如下程序： Function Fun(x As Integer, B](http://www.mshxw.com/aiimages/31/248274.png "[填空题] 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，如图5所示，然后编写如下程序： Function Fun(x As Integer, B")
[填空题] 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，如图5所示，然后编写如下程序：
![[填空题] 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，如图5所示，然后编写如下程序： Function Fun(x As Integer, B](/uploadfile/member/20180926/1537964987.jpg "[填空题] 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，如图5所示，然后编写如下程序： Function Fun(x As Integer, B")
Function Fun(x As Integer, ByVal y As Integer) As Integer
x=x+y
If x＜0 Then
Fun=x
Else
Fun=y
End If
End Function
Private Sub Command1_Click()
Dim a As Integer, b As Integer
a=-10:b=5
Text1.Text=Fun(a,b)
Text2.Text=Fun(a,h)
End Sub
程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是 (11) 和 (12) 。
参考答案：
(11)-5 (12)5问题解析:
函数Fun()有两个参数，其中第一个参数按传地址的方式传递参数，第二个参数按传值的方式传递参数。程序运行后单击命令按钮将两次调用函数Fun()，第一次调用Fun()函数时，实参a=-10，b=5，执行x=x+y，x=-5即x＜0，返回值为-5。同时，由于实参a和形参x共用一段地址空间，实参a的值也变为-5；第二次调用Fun()函数时，实参a=-5，b=5，再执行x=x+y后，x=0，返回形参y的值5。
