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

20 查阅

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

Function Fun(x As Integer, ByValy 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, b)

End Sub

程序运行后，单击命令按钮，Text1和Text2文本框显示的内容分别是______和______。

参考答案:

-5 5

本题主要考查的是ByVal的作用。ByVal的作用是按值传递，在传递过程中不会改变原来的值。在此题中，b的值始终不变，而a的取值应随着每一次的运算而变化。执行Text1.Text=Fun(a, b)，应先执行语句a=a+b=-10+5=-5＜0，此时Fun的值即为a的值，故Text1的值为-5。执行Text2. Text=Fun(a，b)，此时a的值已变为-5，而b的值不变，仍然为5。故执行语句a=a+b后，a=-5+5=0，此时Fun的值应为b的值，故Text2的值为5。

计算机考试