填空题

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