更多"有一个事件过程,其功能是:从已存在于磁盘上的顺序文件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
[填空题]有一个事件过程,其功能是:从已存在于磁盘上的顺序文件NM1.txt中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件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)
(14)
Print x
y=x^2
(15)
Print y
Loop
Close #1,#2
End Sub
[填空题]有一个事件过程,其功能是从已存在于磁盘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
[单项选择]以下事件过程的功能是:从已存在于磁盘上的顺序文件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