VB第6章課后練習答案.doc

第6章 過程與函數(shù)一、填空題 1數(shù)組名作為過程或函數(shù)實參，相應的形參傳遞方式為_按地址傳遞_。2一維長整型數(shù)組a作過程形參寫作：a() As Long，二維長整型數(shù)組b作過程形參寫作：_b() As Long _。 3過程形參為整型，對應實參為5.64，傳遞給形參的值為_6_。 4調(diào)用過程時對形參的改變不會導致相應實參變量的改變，則該形參采用_按值傳遞_方式。 5調(diào)用過程時對形參的改變就是對相應實參變量的改變，則該形參采用_按地址傳遞_方式。 6聲明Single類型全局變量x，寫作_Public x As Single（或 Public x!）_；聲明Integer類型靜態(tài)變量x，寫作_Static x As Integer （或 Static x%）_。 7在窗體Form1的過程中引用窗體Form2中的全局變量y，寫作_Form2.y_。 8閱讀如下代碼，單擊窗體后，窗體上的顯示結(jié)果為_s = 2 s = 5 s = 9_。 Dim i As Integer, n As Integer Private Sub Form_Click() Dim i As Integer For i = 1 To 3 s = sum(i): Print s =; s; Next i End Sub Private Function sum(n As Integer) Static j As Integer j = j + n + 1: sum = j End Function 二、選擇題 1.VB程序設(shè)計語言中，函數(shù)過程與子過程必須分別用關(guān)鍵字（ C ）聲明。 (A)Private，Public (B)Public，Private (C)Function, Sub (D)Sub, Function 2.要調(diào)用一個已經(jīng)定義好的函數(shù)myfunction( )，用語句的方式調(diào)用函數(shù)，下列寫法哪個是正確的（ D ）(A)Call myfunction (B)myFunction (C)myFunction ( ) (D)Call myFunction( ) 3.定義過程時，如果在過程名前加關(guān)鍵字Private，則該過程為（ A ）。 (A)它是私有過程，僅在定義該過程的模塊內(nèi)有效，模塊內(nèi)的過程可以調(diào)用該過程 (B)它是公有過程，在整個工程內(nèi)有效，模塊外的過程可以調(diào)用該過程 (C)它是私有過程，在整個工程內(nèi)有效，模塊外的過程可以調(diào)用該過程 (D)它是公有過程，僅在定義該過程的模塊內(nèi)有效，模塊內(nèi)的過程可以調(diào)用該過程 4.在過程中用Dim保留字定義的變量是（ B ） (A)全局變量 (B)局部變量 (C)靜態(tài)變量 (D)以上都不是 5.防止遞歸函數(shù)進入死鎖的機制是（ A ）(A)在適當?shù)臈l件下返回 (B)通過Stop語句終止遞歸調(diào)用 (C)通過End語句終止遞歸函數(shù) (D)不需要返回 6.關(guān)于函數(shù)與子程序的關(guān)系，下面說法正確的是（ A ） (A) 函數(shù)執(zhí)行完后將得到一個返回值，而子程序只是執(zhí)行一系列動作 (B) 函數(shù)可以不帶參數(shù)，而子程序必須帶參數(shù) (C) 在函數(shù)中只用到傳地址的方式，而子程序只能用到傳值方式 (D)子程序可以被其他子程序調(diào)用，而函數(shù)不能被其他函數(shù)調(diào)用 7.Visual Basic 6.0 中缺省的參數(shù)傳遞機制是（ B ） (A) 傳值 (B) 傳址 (C) 傳值和傳地址 (D)從實參到形參 8.使用（ C ）語句可以實現(xiàn)過程的特殊出口。 (A) Public Sub/Function (B) Call 過程名 (C) Exit Sub/Function (D)Private Sub/Function 三、思考題 1.靜態(tài)變量和動態(tài)變量的區(qū)別是什么？ 2.函數(shù)過程與子程序過程有什么區(qū)別？ 3.子過程調(diào)用有哪幾種形式？ 4.什么是形參？什么是實參？什么是值引用？什么是地址引用？對應的實參有沒有限制？ 5.怎樣引用其他模塊的過程和變量？ 6.編制通用函數(shù)過程，計算Double類型一維數(shù)組所有元素的平均值。 7.編制通用Sub過程，將Single類型一維數(shù)組反序排放（如實參數(shù)組元素依次為6、5、9、7，調(diào)用后為7、9、5、6；若為-3.2、4、2.6、31、7.3，調(diào)用后為7.3、31、2.6、4、-3.2）。 8編制通用Sub過程，在一個m行n列二維數(shù)組中查找絕對值最大的元素，以及該元素的行號、列號（提示：Sub過程的形參列表如x() As Single, m As byte, n As Byte, xmax As Single,ki As Byte,kj As Byte）。 9.輸出100300間的素數(shù)，要求：（1） 用函數(shù)判斷素數(shù)。（2） 每行輸出10個數(shù)。10 設(shè)計一個將一維數(shù)組按降序排列的子過程（假設(shè)數(shù)據(jù)個數(shù)不知道），然后編程：（1） 自動產(chǎn)生并輸出100個100，999間的正整數(shù)，并要求每行輸出10個數(shù)據(jù)。（2） 調(diào)用該過程對數(shù)據(jù)按降序排列后再按每行10個輸出。6-3-7解答：Private Sub Form_Click()Dim a() As SingleReDim a(10)Print 反序前：For i = 1 To 10 a(i) = Rnd * 201 - 100 Print Format(a(i), #.# );Next iPrintCall inver(a(), 10)Print 反序后：For i = 1 To 10Print Format(a(i), #.# );Next iPrintEnd SubPrivate Sub inver(a() As Single, n As Integer) Dim i As Integer, t As Single For i = 1 To n 2 t = a(n - i + 1) a(n - i + 1) = a(i) a(i) = t Next iEnd Sub6-3-8解答：6-3-9解答：Private Sub Form_Click()s = 0For i = 100 To 300 If prime(i) Then Print i;: s = s + 1 If s Mod 10 = 0 Then Print End IfNext iEnd SubPrivate Function prime(x) As Boolean If x 2 Then prime = False Exit Function End If k = Sqr(x) For i = 2 To k If x Mod i = 0 Then prime = False Exit Function End If Next prime = TrueEnd Function6-3-10解答：Private Sub Form_Click() Dim i As Integer, n As Integer Dim a(100) As Integer Print 排序前： For i = 1 To 100 a(i) = Int(900 * Rnd() + 100) Print a(i); If i Mod 10 = 0 Then Print Next i Print Print 排序后： Call ss(a(), 100) For i = 1 To 100 Print a(i); If i Mod 10 = 0 Then Print Next iEnd S