问题
单项选择题
以下事件过程的功能是：从已存在于磁盘上的顺序文件Num1.txt中读取数据，计算读出数据的平方值，将该数据及其平方值存入新的顺序文件Num2.txt中。则在以下横线处合适的语句是( )。
Private Sub Form_Click()
Dim x As Single,y As Single
Open "Num1.txt" For Input As #1
Open "Num2.txt" For Output As #2
Do While Not EOF(1)
______
Print x
y=x^2
Print y
Loop
Close #1,#2
End Sub
A．Input #1,y Print#2,x,y
B．Input #2,x Print #1,x,y
C．Print #1,x Input#2,x,y
D．Input #1,x Print #2,x,y
答案
参考答案：D
解析： 本题考查顺序文件的操作。打开文件Num1和文件Num2，文件号为1和2。如果1号文件不为空，则利用Input读出数据，Input使用格式为：Input #文件号，变量列表。计算平方以后，利用Print将信息结果写入到2号文件中，Print的使用格式为：Print #文件号，[输出列表]。