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