方值,将该数据及其平方值存入新的顺序文件NMtxt中。请填空。 Private Sub Form_Click() Dim x As Single,y As Single Open "NMl.txt" For Input As 1 Open "NMtxt" For Input As 2 Do While Not EOF(1) 【 】 Print x y=x^2 【 】 Print x Loop Close 1,2 End Sub
将该数据及其平方值存入新的顺序文件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) 【 】 Print x y=x^2 【 】 Print y Loop Close 1, S2 End Sub