[填空题] 有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NMl．txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2．txt中。请填空。 Private Su

9 查阅

[填空题] 有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NMl．txt中读取数据，计算读

出数据的平方值，将该数据及其平方值存入新的顺序文件NM2．txt中。请填空。

Private Sub Form_Click()

　　　　Dim x As Single，y As Single

　　 Open "NMl.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 x

　　　Loop

　　　Close #1，#2

　　End Sub

参考答案:

【14】Input #1，x【15】Print #2，x，y

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

[填空题] 有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NMl．txt中读取数据，计算读 出数据的平方值，将该数据及其平方值存入新的顺序文件NM2．txt中。请填空。 Private Su