有一个事件过程，其功能是：从已存在于磁盘上的顺序文件NM1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。
Private Sub Form_Click0
Dim X As Single,y As Single
Open"NM1.txt"For Input As #1
Open"NM2.txt"For OutputAs#2
Do While Not EOF(1)
______
Print X
y=x^2
Print#2,x,f
Printy
Loop
Close#1,#2
End Sub