有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt

问题填空题

有一个事件过程，其功能是：从已存在于磁盘上的顺序文件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

答案

参考答案：[14] Input #1，x

解析：[15] Print #2，x，y 本题考查顺序文件的读写操作，事件过程中，顺序文件的“打开”和“关闭”语句都正确，循环语句使用也正确。事件过程的功能是：从NM1.txt中读取数据，向NM2.txt中写入数据。程序中没有对数据文件进行读写的语句，故空白处要填写的是对顺序文件读数据和写数据的语句。