有下列函數(shù)過程：

Function fun1(ByVal x As Integer,ByVal y As Integer)As Integer

Do While y＜＞0

reminder=x Mod y

x=y

y=reminder

Loop

fun1=x

End Function 在下列按鈕單擊事件中調(diào)用該函數(shù)，則該程序的運(yùn)行結(jié)果是( )。

Private Sub Command1_Click()

Dim a As Integer

Dim b As Integer

a=100

b=25

x=fun1(a,B)Print x

End Sub

A．0

B．25

C．50

D．100

B解析：可以通過兩種方式來傳遞參數(shù)，即按值傳遞參數(shù)和按地址傳遞參數(shù)。按值傳遞參數(shù)時，傳遞的只是變量的副本。如果過程改變了這個值，則所作變動只影響副本而不會影響變量本身。用ByVal關(guān)鍵字指出參數(shù)是按值來傳遞的。按地址傳遞參數(shù)使過程用變量的內(nèi)存地址去訪問實際變量的內(nèi)容，在將變量傳遞給過程時，通過過程可永遠(yuǎn)改變變量值。默認(rèn)時是按地址傳遞參數(shù)。題中fun1函數(shù)的參數(shù)都是按值傳送的，函數(shù)使用“過程名=表達(dá)式”的形式獲得函數(shù)的返回值，如題中“fun1=x”語句。調(diào)用函數(shù)“x=fun1(a,B)”后，x=25。