填空题

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