05856BT09.indd

Size: px

Start display at page:

Download "05856BT09.indd"

进屠
5 years ago
Views:

1 17 第 9 章模組化程式設計 Ⅱ - 參數傳遞與變數活動範圍參考答案 9-1 參數的傳遞 9-1 練習配合課本第 61 頁基礎一選擇題 ( B )1. 若某一 Visual Basic 的自定函數如下, 則呼叫 Test(5) 的傳回值為何? (A)1 (B)5 (C)20 (D)625 Function Test(ByVal n As Short) As Integer If n < 2 Then Test = 1 ElseIf n Mod 2 = 0 Then Test = n ^ (n - 1) Else Test = n End If End Function ( B )2. 下列 Visual Basic 程式執行後, 所輸出的資料為何? Private Sub Heart(ByVal m As Integer) m = m ^ (m + 2) Dim C As Integer C = -1 Call Heart(C) MsgBox(C) (A)-2 (B)-1 (C)0 (D)1 統測

2 18 程式語言與設計 -Visual Basic Ⅱ 教師手冊 ( B )3. 下列程式有三個變數 A,B 及 C, 若要找出其中最小值, 則必須在空格處填入 (A)A < B (B)C < A (C)B < C (D)C < B 技競 If B < A Then Swap(A, B) If Then Swap(A, C) MsgBox(A) Sub Swap(ByRef A, ByRef B) Dim T As Integer T = B : B = A : A = T ( C )4. 下列 Visual Basic 程式的執行結果為何? (A)24 (B)26 (C)28 (D)30 Dim a As Short = 4 Call Fact(a) MsgBox(a) Sub Fact(ByRef x As Short) Dim i, k As Integer k = 1 For i = 1 To x k = k * i Next x = x + k ( B )5. 在下面的 Visual Basic 程式中, 哪些是形式參數, 哪些是實際參數? (A) 形式參數 :x y z, 實際參數 :a b (B) 形式參數 :x y, 實際參數 :a b (C) 形式參數 :a b, 實際參數 :x y (D) 形式參數 :a b, 實際參數 :x y z Dim a, b As Integer a = 15 : b = 6 Call test(a, b) MsgBox(a * b) Sub test(byref x As Integer, ByVal y As Integer) Const z As Short = 2 x = x Mod 3 + y * z

3 19 進階 ( C )6. 承上題, 程式的執行結果為何? (A)36 (B)54 (C)72 (D)90 ( C )7. 假設變數 a 的初始值為 3, 則執行 Visual Basic 的 Call test(a, (a), a) 敘述, 呼叫下列副程式回到主程式後,a 的值為何? (A)0 (B)3 (C)6 (D)9 技競 Sub test(byref x As Integer, ByRef y As Integer, ByVal z As Integer) x = x + y y = x + y + z ( A )8. 執行下列程式, 最後 n 值是多少? (A)14 (B)20 (C)24 (D)40 Dim i, n As Integer For i = 1 To 4 n = n + FNP(i) Next MsgBox(n) Function FNP(ByRef x As Short) As Integer x = x ^ 2 + x FNP = x End Function ( B )9. 下列程式執行的結果? (A)21 (B)18 (C)26 (D)17 技競 Dim X, Y, Z As Integer X = 6 : Y = 7 : Z = 8 X = X + 1 : Y = Y - 2 : Z = X + Y Call SUBADD(X, Y, Z) MsgBox(X + Y + Z) Sub SUBADD(ByRef A, ByRef B, ByRef C) A = A - 4 : B = B + 1 : C = A + B

4 20 程式語言與設計 -Visual Basic Ⅱ 教師手冊 ( D )10. 假設整數 b 之初始值為 1, 整數 c 的初始值為 2, 則呼叫 R(b, b, b + c) 函式, 傳回的 p 值為何? (A)4 (B)1 (C)10 (D)6 技競 Function R(ByRef x As Integer, ByRef y As Integer, ByRef z As Integer) As Integer Dim p As Integer y = z p = x + z R = p End Function 二多元練習題 1. 下面是一個用來計算信用卡紅利點數的程式片段 ( 隨著每月的消費金額增加, 紅利點數會跟著增加 ), 請在空格處填入正確的參數傳遞敘述 Private Button1_Click( ) Handles Button1.Click Dim bonus, bill As Integer bonus = InputBox(" 請輸入目前累積的紅利點數 :") bill = InputBox(" 請輸入本月消費金額 :") Call Cal_bonus(bonus, bill) Select Case bonus ' 依據新的紅利點數作判斷處理 End Select Sub Cal_bonus( ByRef profit As Integer, ByVal expense As Integer) profit = profit + expense / 20 MsgBox(" 截至目前為止, 共有 " & profit & " 點的紅利點數 ") 2. 選按檔案 / 開啟專案選項, 開啟專案 "ex9-1a.sln", 並參考右下表, 利用傳址呼叫的副程式, 設計一個可依據考績調整薪資的程式成果預覽 : TextBox1 TextBox2 考績薪資加乘 Button1 Label3 甲薪資 * 1.1 乙薪資 * 1.05 丙薪資 * 0.95

5 21 提示 :(1) 撰寫一個可依據考績調整薪資的副程式 : 先利用形式參數承接薪資與考績, 其中薪資的參數須設定為傳址呼叫再利用 Select Case 敘述, 計算調整後的薪資 (2) 在 Button1 的 Click 事件中, 宣告變數 money 與 grade, 用以儲存使用者輸入的薪資與考績, 並呼叫提示 (1) 撰寫的副程式 ; 最後在 Label3 輸出調整後的薪資解請參考教資光碟中的方案檔 "ans9-1a.sln" 9-2 程序的種類與活動範圍程序的活動範圍馬上練習配合課本第 69 頁 ( C )1. 在模組檔中撰寫副程式時, 若希望該副程式能被專案中的所有檔案呼叫使用, 則可在定義副程式的 Sub 敘述前加上下列哪一個保留字? (A)Dim (B)Const (C)Public (D)Private ( B )2. 若在 Visual Basic 的 Form1 表單檔中撰寫如下的程式, 則該檔案中共有幾個私有程序? (A)1 個 (B)2 個 (C)3 個 (D)0 個 Private Sub Button1_Click( ) Handles Button1.Click Dim a, b, Sum, Difference As Integer a = Val(TextBox1.Text) b = Val(TextBox2.Text) Sum = Add(a, b) ' 呼叫可計算兩數總和的自定函數 Difference = Subs(a, b) ' 呼叫可計算兩數差的自定函數 MsgBox("a + b = " & Sum & vbcrlf & "a - b = " & Difference) Public Function Add(ByVal x As Integer, ByVal y As Integer) As Long Add = x + y End Function Private Function Subs(ByVal x As Integer, ByVal y As Integer) As Integer Subs = x - y End Function ( D )3. 承上題, 程式執行時會發生什麼問題? (A) 無法呼叫自定函數 Add() (B) 無法呼叫自定函數 Subs() (C) 無法執行 Button1_Click 事件程序 (D) 程式執行結果無問題

(A)Public (B)Protected (C)Friend (D)Private 技競 ( D )4. 假設某一 Visual Basic 專案之表單檔 (Form1.vb) 及模組檔 (Module1.vb) 皆各有一個名為 Share() 的公有程序, 若想在 Form1_Click 事件程序中呼叫模組檔下的公有程序 Share(), 則該如何撰寫程式敘述?

6 22 程式語言與設計 -Visual Basic Ⅱ 教師手冊 9-2 練習配合課本第 69 頁一選擇題 ( C )1. Visual Basic 會在事件程序名稱前加上哪一個保留字, 以防止其它檔案使用該事件程序? (A)Sub (B)Public (C)Private (D)End ( B )2. 撰寫副程式 ( 如 Sub test() ) 時, 若未在 "Sub" 之前加上 Public 或 Private 等保留字, 則該副程式 (A) 會出現錯誤訊息 (B) 自動歸屬為公有程序 (C) 自動歸屬為私有程序 (D) 自動歸屬為事件程序 ( D )3. 若要設定只有相同表單內的程式碼可以存取某個自定函數, 必須將這個自定函數的可見範圍設定為何? (A)Public (B)Protected (C)Friend (D)Private 技競 ( D )4. 假設某一 Visual Basic 專案之表單檔 (Form1.vb) 及模組檔 (Module1.vb) 皆各有一個名為 Share() 的公有程序, 若想在 Form1_Click 事件程序中呼叫模組檔下的公有程序 Share(), 則該如何撰寫程式敘述? (A)Call Share() (B)Call Module1() (C)Call Form1.Share() (D)Call Module1.Share() ( A )5. 承上題, 若想在 Form1_Click 事件程序中呼叫表單檔下的公有程序 Share(), 則該如何撰寫程式敘述? (A)Call Share() (B)Call Form1 (C)Call Module1 (D)Call Module1.Share() 二實作題 1. 選按檔案 / 開啟專案選項, 開啟專案 "ex9-2a.sln", 利用呼叫模組檔中的副程式, 來計算文字方塊中的字數 ( 不含空格 ) 成果預覽 : TextBox1 Button1

7 23 提示 :(1) 在方案總管視窗中, 雙按 "Module1.vb", 開啟 Module1 模組檔, 可得知模組檔中已撰寫有計算字數的副程式 cal_word() (2) 在方案總管視窗中, 雙按 "Form1.vb", 回到 Form1 表單, 並雙按 Button1, 準備在 Button1 的 Click 事件撰寫程式 (3) 呼叫 Module1 模組檔中的 cal_word() 副程式, 並設定參數為 TextBox1. Text, 以計算出 TextBox1 中的文字之總字數解請參考教資光碟中的方案檔 "ans9-2a.sln" 2. 選按檔案 / 開啟專案選項, 開啟專案 "ex9-2b.sln", 加入一個空白的模組檔, 用以撰寫計算行車時間的公有自定函數, 接著在表單檔中, 利用呼叫的方式使用此自定函數成果預覽 : TextBox1 TextBox2 Label3 Button1 提示 :(1) 選按專案 / 加入模組選項組, 並按新增鈕, 以建立模組檔 (2) 在模組檔中撰寫一個計算行車時間的公有自定函數 ( 公式為 : 行車時間 = 距離 / 時速 ) (3) 在方案總管視窗中, 雙按 "Form1.vb", 回到 Form1 表單, 並雙按 Button1, 準備在 Button1 的 Click 事件撰寫程式 (4) 呼叫模組中的自定函數, 並將回傳值顯示在 Label3 中解請參考教資光碟中的方案檔 "ans9-2b.sln" 9-3 變數的活動範圍與存留期 2 下課想配合課本第 82 頁若要設定當積分為負分時, 即結束遊戲, 本程式應如何修改? 解請參考教資光碟中的方案檔 "ans9-3a_1.sln"

8 24 程式語言與設計 -Visual Basic Ⅱ 教師手冊 9-3 練習配合課本第 82 頁一選擇題基礎 ( B )1. 在 Visual Basic 專案中, 若要將變數宣告為靜態變數, 須使用到下列哪一個保留字? (A)Dim (B)Static (C)Public (D)Private ( C )2. 下面哪一種變數的存留期最短? (A) 全域變數 (B) 成員變數 (C) 區域變數 (D) 靜態變數 ( B )3. 在 Visual Basic 中, 若某事件程序使用了下面 4 種變數, 試問哪些變數可在該事件程序被執行多次後, 其值仍可延續保存? 1 全域變數 2 成員變數 3 區域變數 4 靜態變數 (A)123 (B)124 (C)234 (D)134 ( C )4. Visual Basic 變數 :1 成員變數 2 區域變數 3 全域變數, 若依照在專案程式中的活動範圍由大到小排列, 其順序應為 (A)123 (B)213 (C)312 (D)321 ( B )5. 在 Visual Basic 事件程序中所宣告的變數, 稱為 (A) 全域變數 (B) 區域變數 (C) 成員變數 (D) 常數進階 ( D )6. 在下面的 Visual Basic 程式片段中, 何者為成員變數? (A)x (B)ck (C)sex (D)name Dim name As String Function ring( ) As Integer Dim id As String Dim sex As Boolean Private Sub Button1_Click( Static ck As Integer Dim x As Single x = ring(ck) ( C )7. 奕卿想利用 Visual Basic 撰寫一個打擊惡魔的遊戲程式, 該程式執行時, 會不定時的在九宮格中顯示惡魔圖片, 玩家必須在規定時間內單按該惡魔圖片, 才可取得分數請問記錄玩家單按九宮格圖片合計次數之變數, 不可以宣告為哪一種類型的變數 (A) 全域變數 (B) 成員變數 (C) 區域變數 (D) 靜態變數

9 25 ( A )8. 執行下列 Visual Basic 程式並按 Button1 兩次後,i 值的變化為何? (A)6 7 (B)7 6 (C)5 6 (D)7 8 ' 表單檔 (Form1.vb) Private Sub Button1_Click( Dim i As Integer i = i + 5 Call Test(i) MsgBox(i) ' 模組檔 (Module1.vb) Dim j As Integer Sub Test(ByRef k As Integer) Static c As Short = 1 k = k + c j = k + 3 c = c + 1 ( B )9. 承上題, 請問該程式中沒有宣告下列哪一種類型的變數? (A) 成員變數 (B) 全域變數 (C) 區域變數 (D) 靜態變數 ( B )10. 執行下列 Visual Basic 程式後, 顯示的結果為何? (A)0 (B)1 (C)5 (D)6 Public a As Short Dim a As Integer a = a + 1 Call test() MsgBox(a) Sub test() a = a + 5 二多元練習題 1. 請在下列空格中, 填入正確的代號 a. 全域變數 b. 成員變數 c. 靜態變數 d. 區域變數 Public a As Short... Private b As Short... a b Dim i As Integer... d Static j As Integer... c

26 程式語言與設計 -Visual Basic Ⅱ 教師手冊 2. 下面的程式是用來輸出使用者可再單按表單的剩餘次數 ( 假設由 100 依序遞減 ), 請觀察右下角的執行結果, 在空格處填入正確的宣告用保留字 Private Sub Form1_Click( ) Handles Me.Click Static N As Integer = 100 N = N - 1 Label1.

10 26 程式語言與設計 -Visual Basic Ⅱ 教師手冊 2. 下面的程式是用來輸出使用者可再單按表單的剩餘次數 ( 假設由 100 依序遞減 ), 請觀察右下角的執行結果, 在空格處填入正確的宣告用保留字 Private Sub Form1_Click( ) Handles Me.Click Static N As Integer = 100 N = N - 1 Label1.Text = "N = " & N 第 1 次單按表單的輸出畫面第 6 次單按表單的輸出畫面綜合評量配合課本第 85 頁一選擇題基礎 ( B )1. 若希望撰寫在模組檔 "Module1.vb" 中的某一自定函數可被表單檔及其他模組檔使用, 則可在定義該自定函數的 Function 敘述前, 加上哪一個保留字? (A)Option (B)Public (C)Private (D)Static ( A )2. 下列哪一種變數的活動範圍, 橫跨專案中的所有檔案? (A) 全域變數 (B) 成員變數 (C) 區域變數 (D) 靜態變數 ( B )3. 下列哪 2 種變數的存留期, 是一直存在到宣告它的檔案執行結束時, 才會終止? (A) 區域變數成員變數 (B) 成員變數靜態變數 (C) 靜態變數區域變數 (D) 靜態變數全域變數 ( A )4. 下列何者是 Visual Basic 控制項之事件程序的共同特性? (A) 在開頭的 "Sub" 敘述前都加上保留字 "Private" 者, 表示不會被其它表單或模組使用 (B) 屬於公有程序 (C) 可以在模組檔中撰寫控制項的事件程序 (D) 預設採用傳址呼叫的方式來傳入參數進階 ( D )5. 在 Visual Basic 中, 有關傳值與傳址的敘述, 何者錯誤? (A) 在形式參數前加上 "ByVal" 代表傳值 (B) 在形式參數前加上 "ByRef" 代表傳址 (C)Visual Basic 預設參數是以傳值方式傳遞 (D) 傳值呼叫後, 實際參數的值會被改變 ( C )6. 有關保留字 Public 和 Private 的敘述, 下列何者錯誤? (A) 若在程序前加上 Public, 表示該程序可被專案中的所有表單檔及模組檔使用 (B) 若在程序前加上 Private, 表示該程序只能被同一個檔案中的程序使用 (C) 若在表單的宣告區中使用 Public 宣告變數, 表示該變數為成員變數 (D) 若在表單的宣告區中使用 Private 宣告變數, 表示該變數無法被其它檔案中的程序使用

11 27 ( C )7. 假設一個 Visual Basic 的一般程序 MySub 需要傳遞 2 個參數 arg1 與 arg2, 其中 arg1 為整數型態並以傳值方式傳遞, 另外 arg2 是以傳址方式傳遞字串, 請問此程序應如何宣告? (A)Sub MySub(ByVal agr1 As Integer, ByVal arg2 As String) (B)Sub MySub(ByRef agr1 As Integer, ByRef arg2 As String) (C)Sub MySub(ByVal agr1 As Integer, ByRef arg2 As String) (D)Sub MySub(ByRef agr1 As Integer, ByVal arg2 As String) ( C )8. 若一 VB 程式如下, 其執行結果會印出變數 a 的值為? 技競 (A)-1 (B)0 (C)1 (D)2 技競 Private Sub Good(ByRef s As Integer) s = s + 1 Private Sub Bad(ByVal t As Integer) t = t - 2 Dim a As Integer a = 0 Call Good(a) Call Bad(a) MsgBox(a) ( C )9. 執行下列 Visual Basic 程式, 變數 sum 值為何? (A)100 (B)110 (C)112 (D)117 ' 表單檔 (Form1.vb) Private Sub Form_Load( ) Handles MyBase.Load Dim x, sum As Integer x = 100 Call mp(x) sum = x + Module1.x ' 模組檔 (Module1.vb) Public x As Integer Sub mp(byref y As Integer) x = 10 y = y + x x = x / 5

12 28 程式語言與設計 -Visual Basic Ⅱ 教師手冊 ( D )10. 執行下列 Visual Basic 程式片段後, 請問 a,b 值為何? (A)10,20 (B)20,10 (C)10,10 (D)20,20 技競 Dim a As Integer, b As Integer a = 10 b = 20 Call cal(a, b) Sub cal(byref a As Integer, ByVal b As Integer) Dim temp As Integer temp = a a = b b = temp 二實作題 1. 選按檔案 / 開啟專案選項, 開啟專案 "ex9-a.sln", 並參考右下表, 利用傳址呼叫的副程式, 設計一個可依據消費金額給予折扣的程式成果預覽 : TextBox1 Button1 Label3 金額滿 2,000 滿 5,000 滿 10,000 折扣 9 折 8 折 7 折提示 :(1) 撰寫一個可依據消費金額給予折扣的副程式 : 先利用形式參數承接消費金額, 且參數須設定為傳址呼叫再利用 Select Case 敘述, 計算折扣後的金額 (2) 在 Button1 的 Click 事件中, 呼叫提示 (1) 撰寫的副程式, 並在 Label3 輸出折扣後的金額解請參考教資光碟中的方案檔 "ans9-a.sln"

Windows Form 選項, 按新增鈕, 新增表單 Form2 (2) 在方案總管視窗中, 雙按 "Form1.

13 29 2. 選按檔案 / 開啟專案選項, 開啟專案 "ex9-b.sln", 製作登入模擬畫面, 讓使用者在第 1 個表單 (Form1) 輸入姓名與稱謂, 按登入鈕後, 會在第 2 個表單 (Form2) 顯示歡迎畫面成果預覽 : TextBox1 ComboBox1 Button1 Form1 Label1 Form2 提示 :(1) 選按專案 / 加入 Windows Form 選項, 按新增鈕, 新增表單 Form2 (2) 在方案總管視窗中, 雙按 "Form1.vb", 回到 Form1 表單, 開啟 Form1 的程式碼視窗, 並宣告全域變數 name( 儲存姓名 ) 與 title( 儲存稱謂 ) 為字串資料型別 (3) 在 Button1 的 Click 事件中, 設定變數 name = TextBox1.Text,title = ComboBox1.SelectedItem, 並輸入 Form2.Show(), 使按鈕被按下後, 會顯示 Form2 表單 (4) 在方案總管視窗中, 雙按 "Form2.vb", 切換到 Form2 表單, 並在表單上佈建一個 Label 控制項 (5) 在 Form2 的 Load 事件中, 設定 Label1.Text = " 歡迎光臨," & Form1. name & Form1.title 解請參考教資光碟中的方案檔 "ans9-b.sln"

Excel VBA Excel Visual Basic for Application

Excel VBA Excel Visual Basic for Application Excel VBA Jun5,00 Sub 分頁 () Dim i As Integer Dim Cname As String Dim Code As Variant Set score=thisworkbook.sheets("sheet") Code=Array(" 專北一 "," 專北二 "," 專北三 "," 專桃園 "," 專桃竹 "," 專中苗 ", " 專台中 "," 專台南 ","