[填空题] 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，如图5所示，然后编写如下程序：Function Fun(x As Integer, B

[填空题] 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，如图5所示，然后编写如下程序： Function Fun(x As Integer, B

[填空题] 在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，如图5所示，然后编写如下程序：

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。