110年 - 110 中華郵政股份有限公司_職階人員甄試試題_營運職／壽險精算：Excel VBA 及 Access VBA 程式#106500

科目：Excel VBA 及 Access VBA 程式 | 年份：110年 | 選擇題數：0 | 申論題數：15

試卷資訊

所屬科目：Excel VBA 及 Access VBA 程式

選擇題 (0)

申論題 (15)

第一題：請回答下列問題：

（一）追蹤以下程式的執行，請問將產生何種輸出結果？【5 分】

（二）若以上程式改以條件式重複結構(While … Wend)撰寫，不使用 If … Then 判斷結構與 For … Next 重複結構，應如何改寫？【20 分】

第二題：

請以 VBA 語法撰寫一程序(Sub)，可以 InputBox 語法取得不特定長度的數字串，計算出現次數最高的數字，並以 MsgBox 指令輸出數字 1 出現次數。即執行該程式後，將先出現如【圖二之 1】介面，輸入“12123451671”字串，按下「確定」鍵後，可產生如【圖二之 2】的輸出。【25 分】

第三題：請回答下列問題：

（一）除 Integer 外，請列舉 3 個常用的資料類型。【3 分】

（二）函式中以 Dim i As Integer 宣告整數變數，請問整數 i 的範圍為何？【3 分】

（三）若 n1 = 13，n2 = 7，result = n1 Xor n2，請問 result 的值為多少？【3 分】

（四）函式中以 Dim arr(6 To 9) As Integer 宣告陣列，請問 arr 最多可以儲存多少整數值？【3 分】

（五）請於 Next i 之後以不影響 arr 現有資料的前提下，新增程式碼以擴充 arr 大小至10 個元素。【3 分】

（六）在子程序或函式間傳遞變數可透過 ByRef 和 ByVal 關鍵字描述，請說明兩者差異以及 VBA 預設使用方式。【4 分】

（七）請寫出把除錯資料 ( debug_msg ) 輸出到即時運算視窗中的語法。【3 分】

（八）請修改下方程式碼使其可在訊息對話框中顯示確定和取消按鈕。【3 分】 MsgBox "在對話框顯示確定和取消按鈕"

第四題：請依照下列說明撰寫程式碼：

（一）請撰寫程式碼取得一個介於 1 ~ 100 的亂數值，並描述初始化亂數產生器可以使用何種陳述式？【5 分】

（二）請說明執行下方副程式 calc 6,8 的顯示結果，理由為何？【7 分】

（三）執行以下函式 result = calc(5)，請問 result 的值為多少？【7 分】

（四）請完成下列程式碼新增一筆紀錄 UserName = "A 先生"，UserAge = 18 到 Users 資料表中。【6 分】