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

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

Input #1，x