2007年9月全国计算机等级考试二级VB模拟试题(2)及答案

(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中写入数据。程序中没有对数据文件进行读写的语句，故空白处要填写的正是对顺序文件读数据和写数据的语句。