有一个事件过程,其功能是:从已存在于磁盘上的顺序文件NM1.txt中读取数据,计算读出数据的平方值,将该数据及其平方值存入新的顺序文件NM2.txt中。请填空。 Private Sub Form_Click() Dim x As Single,

admin2009-03-15  35

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

选项

答案Input #1,x , Print #2,x,y

解析 本题考查顺序文件的读写操作,事件过程中,顺序文件的打开和关闭语句都正确。循环语句使用也正确。事件过程的功能是:从NM1.txt中读取数据,向NM2.txt中写入数据。程序中没有对数据文件进行读写的语句,故空白处要填写的是对顺序文件读数据和写数据的语句。
转载请注明原文地址:https://jikaoti.com/ti/AIq0FFFM
0

最新回复(0)