[填空題] 在窗體上畫一個名稱為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文本框顯示的內(nèi)容分別是______和______。

-5 5

本題主要考查的是ByVal的作用。ByVal的作用是按值傳遞，在傳遞過程中不會改變原來的值。在此題中，b的值始終不變，而a的取值應隨著每一次的運算而變化。執(zhí)行Text1.Text=Fun(a, b)，應先執(zhí)行語句a=a+b=-10+5=-5＜0，此時Fun的值即為a的值，故Text1的值為-5。執(zhí)行Text2. Text=Fun(a，b)，此時a的值已變?yōu)?5，而b的值不變，仍然為5。故執(zhí)行語句a=a+b后，a=-5+5=0，此時Fun的值應為b的值，故Text2的值為5。