(9) 下列程序的輸出結果為 【10】 。
num=2
While num <=3
   num=num + 1
   Print num
Wend
解析： 程序先將2賦給num，然后執行While語句。
While循環語句的執行過程是：如果"條件"為真，則執行"語句塊"，當遇到Wend語句時，控制返回到While語句并對"條件"進行測試，如果仍然為真，則重復上述過程，直到"條件"為假。
起初num為2，所以小于3，條件為真，執行num＝num+1語句，此時num為3，然后輸出num的值即3，當程序執行num為3的時候，因為3等于3，所以執行num＝num+1，此時num為4，輸出num的值并退出循環。
(10) 以下是一個計算矩形面積的程序，調用過程計算矩形面積，請將程序補充完整。
Sub RecArea(L, W)
   Dim S As Double
   S=L * W
   MsgBox "Total Area is " & Str(S)
End Sub
Private Sub Command1_Click()
   Dim M, N
   M=InputBox("What is the L?")
   M=Val(M)
    【11】
   N=Val(N)
    【12】
End Sub
解析： 程序通過RecArea來計算并輸出矩形的面積，它有兩個形式參數，分別為矩形的長和寬；在Sub事件過程中，從鍵盤上輸入矩形的長和寬，調用InputBox函數分別將輸入的數賦給M和B，所以【11】為N = InputBox("What is the W?") ；將M和N作為實參調用RecArea過程，它有兩種書寫方式，一種是把過程的名字放在一個Call語句中，格式為Call 過程名［(實際參數) ］；另外一種是把過程名作為一個語句來使用，與第一種方式相比，它去掉關鍵字Call，去掉了參數列表，所以【12】為Call RecArea(M, N) 或RecArea(M, N）。
(11) 在KeyPress事件過程中，KeyAscii是所按鍵的 【13】 值。
解析： 當按下鍵盤上的某個鍵時，觸發KeyPress事件過程，該事件用到的KeyAscii作為參數，此參數是一個預定義的變量，執行KeyPress事件過程時，KeyAscii是所按鍵的ASCII碼。
(12) 有一個事件過程，其功能是：從已存在于磁盤上的順序文件NM1.txt中讀取數據，計算讀出數據的平方值，將該數據及其平方值存入新的順序文件NM2.txt中。請填空。
Private Sub Form_Click()
   Dim x As Single, y As Single
   Open "NM1.txt" For Input As #1
   Open "NM2.txt" For Input As #2
   Do While Not EOF(1)
       【14】
       Print x
       y=x ^ 2
       【15】
       Print y
   Loop
   Close #1, #2
End Sub
解析： 本題考查順序文件的讀寫操作，事件過程中，順序文件的打開和關閉語句都正確。循環語句使用也正確。事件過程的功能是：從NM1.txt中讀取數據，向NM2.txt中寫入數據。程序中沒有對數據文件進行讀寫的語句，故空白處要填寫的正是對順序文件讀數據和寫數據的語句。

希望與更多計算機等級考試的網友交流，請進入計算機等級考試論壇

更多信息請訪問：考試吧計算機等級考試欄目