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

17 查阅

[填空题] 在窗体上画一个名称为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。

计算机考试