計算機二級VB參數(shù)傳遞方式判別與解題應(yīng)用

    三、不同傳遞方式對參數(shù)類型的要求

　　若參數(shù)按地址傳遞，則VB要求實參的數(shù)據(jù)類型與形參的數(shù)據(jù)類型完全一致；若參數(shù)按值傳遞，則實參數(shù)據(jù)類型不要求與形參完全一致，但是必須能夠由VB默認(rèn)轉(zhuǎn)化。

四、解題應(yīng)用

　　(一)  以江蘇省計算機等級考試2001年春季的一道考題為例：

　　在應(yīng)用程序中用“Private Function Fun(X As Integer, Y As Single)”定義了函數(shù)Fun. 調(diào)用函數(shù)Fun的過程中的變量I,J均定義為 Integer型,能正確引用函數(shù)Fun的是____

①Fun(I,J)                           ②Call Fun(I,3.65)

③Fun(3.14,234)                  ④Fun(“245”, “231.5”)

A.①③          B.②③④                     C.①②③                     D.①②③④

　　分析：

　　1.       根據(jù)判別流程圖，對每個引用做如下判斷：

　　對于①Fun(I,J)，實參I與形參X匹配，由于形參X不是數(shù)組并且無ByVal修飾，而實參I為變量，不是值或表達式，因此該參數(shù)將按照地址傳遞；同理，可以推斷實參J與形參Y也將按照地址傳遞。根據(jù)VB要求，按照地址傳遞的實參和形參數(shù)據(jù)類型必須完全一致，而根據(jù)題意，J為Integer，Y為Single，因此①不正確；對于②Call Fun(I,3.65)，I與X按地址傳遞；而實參3.65為值，與形參Y匹配時，將按值傳遞，因此②正確；對于③Fun(3.14,234)，雖然實參3.14對應(yīng)的形參X為Integer，實參234對應(yīng)的形參Y為Single，但由于它們都是按照值傳遞，因此3.14將轉(zhuǎn)化為3，而234可以直接賦給Y，因此③正確；對于④Fun(“245”, “231.5”)，由于實參“245”和“231.5”均為字符串值，因此其與對應(yīng)形參X、Y將按照值傳遞，而數(shù)字字符串是可以轉(zhuǎn)化為數(shù)值類型的，因此④正確。

　　綜上所述，正確答案為B。

　　2.       對于該題，由于要求是“能正確引用函數(shù)Fun的是”，因此，③④雖帶括號，并且無Call引導(dǎo)，但卻可以通過諸如：Print Fun(3.14,234)加以引用。若改為：“能正確調(diào)用函數(shù)Fun的語句是”，則此時③④不可選，只能選②。

　　(二)  以江蘇省計算機等級考試2002年春季的一道考題為例：

　　調(diào)用由語句Private Sub Convent(Y As Integer)定義的Sub過程時，以下不是按值傳遞的語句____。

A.Call Convent((X))                   B.Call Convent(X*1)

C.Convent(X)                             D.Convent X

　　分析：

　　1.       對于A、B選項，實參分別為（X）和X*1，均為表達式，因此A、B選項中的實參將按照值傳遞；對于D選項，實參X未用括號引導(dǎo)，此時不可加Call，因此語句正確，同時，根據(jù)判別流程圖，實參X與形參Y必按地址傳遞。分析至此，對于該題為單選題，已經(jīng)可以斷定答案是D。

　　2.       現(xiàn)在考慮C選項語句Convent(X)帶括號，但卻無Call引導(dǎo)，因此直覺上似乎不能正確執(zhí)行。但若我們在VB代碼編輯器中輸入該句，回車后，該語句自動調(diào)整為：Convent (X)，注意此時Convent與(X)之間有一個空格，因此該句中的括號是用于X，而不是用于Convent，所以盡管無Call引導(dǎo)但其卻能夠執(zhí)行，此時實參為(X)，因此參數(shù)將按值傳遞。所以對于Call Convent(X)和Convent(X)，雖然都能執(zhí)行，并非是由于Convent(X)前可以省略Call，而在于它們的實參分別是X和(X)，其傳遞參數(shù)的方式自然就不同。

　　(三)  閱讀程序?qū)懗鲞\行結(jié)果：

       Private Sub Form_Click()

           Dim x As Integer, y As Integer, z As Integer

           x = 1: y = 2: z = 3

           Call sub1(x, y, y)

        Print x,y,z

End Sub

Private Sub sub1(x As Integer, y As Integer, ByVal z As Integer)

Dim I As Integer

           x = 3 * z: y = 2 * z: z = x + y

           Print x, y, z

End Sub

分析：