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

问题：

有一个事件过程，其功能是：从已存在于磁盘上的顺序文件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)　　　　　　【】　　　　　　　Print x　　　　　　y=x^2　　　　　　【】　　　　　　　Print x　　　Loop　　　Close #1，#2　　End Sub