(9) 下列程序的輸出結(jié)果為 【10】 。
num=2
While num <=3
   num=num + 1
   Print num
Wend
解析： 程序先將2賦給num，然后執(zhí)行While語句。
While循環(huán)語句的執(zhí)行過程是：如果"條件"為真，則執(zhí)行"語句塊"，當(dāng)遇到Wend語句時(shí)，控制返回到While語句并對(duì)"條件"進(jìn)行測(cè)試，如果仍然為真，則重復(fù)上述過程，直到"條件"為假。
起初num為2，所以小于3，條件為真，執(zhí)行num＝num+1語句，此時(shí)num為3，然后輸出num的值即3，當(dāng)程序執(zhí)行num為3的時(shí)候，因?yàn)?等于3，所以執(zhí)行num＝num+1，此時(shí)num為4，輸出num的值并退出循環(huán)。
(10) 以下是一個(gè)計(jì)算矩形面積的程序，調(diào)用過程計(jì)算矩形面積，請(qǐng)將程序補(bǔ)充完整。
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來計(jì)算并輸出矩形的面積，它有兩個(gè)形式參數(shù)，分別為矩形的長(zhǎng)和寬；在Sub事件過程中，從鍵盤上輸入矩形的長(zhǎng)和寬，調(diào)用InputBox函數(shù)分別將輸入的數(shù)賦給M和B，所以【11】為N = InputBox("What is the W?") ；將M和N作為實(shí)參調(diào)用RecArea過程，它有兩種書寫方式，一種是把過程的名字放在一個(gè)Call語句中，格式為Call 過程名［(實(shí)際參數(shù)) ］；另外一種是把過程名作為一個(gè)語句來使用，與第一種方式相比，它去掉關(guān)鍵字Call，去掉了參數(shù)列表，所以【12】為Call RecArea(M, N) 或RecArea(M, N）。
(11) 在KeyPress事件過程中，KeyAscii是所按鍵的 【13】 值。
解析： 當(dāng)按下鍵盤上的某個(gè)鍵時(shí)，觸發(fā)KeyPress事件過程，該事件用到的KeyAscii作為參數(shù)，此參數(shù)是一個(gè)預(yù)定義的變量，執(zhí)行KeyPress事件過程時(shí)，KeyAscii是所按鍵的ASCII碼。
(12) 有一個(gè)事件過程，其功能是：從已存在于磁盤上的順序文件NM1.txt中讀取數(shù)據(jù)，計(jì)算讀出數(shù)據(jù)的平方值，將該數(shù)據(jù)及其平方值存入新的順序文件NM2.txt中。請(qǐng)?zhí)羁铡?BR>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
解析： 本題考查順序文件的讀寫操作，事件過程中，順序文件的打開和關(guān)閉語句都正確。循環(huán)語句使用也正確。事件過程的功能是：從NM1.txt中讀取數(shù)據(jù)，向NM2.txt中寫入數(shù)據(jù)。程序中沒有對(duì)數(shù)據(jù)文件進(jìn)行讀寫的語句，故空白處要填寫的正是對(duì)順序文件讀數(shù)據(jù)和寫數(shù)據(jù)的語句。

希望與更多計(jì)算機(jī)等級(jí)考試的網(wǎng)友交流，請(qǐng)進(jìn)入計(jì)算機(jī)等級(jí)考試論壇

更多信息請(qǐng)?jiān)L問：考試吧計(jì)算機(jī)等級(jí)考試欄目