下列程序实现的功能是:从键盘上输入10个整数,并把它们写到“D:”盘“a1.dat”文件中,然后从中读出第5个数并输出。 Private Sub Form_Click() Dim k As Integer Dim n As I

admin2009-02-13  17

问题 下列程序实现的功能是:从键盘上输入10个整数,并把它们写到“D:”盘“a1.dat”文件中,然后从中读出第5个数并输出。
   Private Sub Form_Click()
      Dim k As Integer
      Dim n As Integer,i As Integer
      n=Len(k)
      Open【  】As#10 Len=n
      For i=1 To 10
         k=InputBox("请输入一个整数")
         【  】
      Next i
     【  】
      Get #10,,k
      Print k
   End Sub

选项

答案"D:\a1.dat"For Random , Put #10,i,k , Seek #10,5

解析 根据分析可知,本题打开的文件可以先写后读,既可以读又可以写,同时又发现文件读写使用Get#和Put#语句,因此,应该用随机方式打开文件,故[13]处应填“"D:\a1.dat"For Random”。通过一个For循环输入10个数,并把它们写到文件中去,因此[14]处应填“Put #10,i,r”。为读出第5个整数,必须首先把记录指针移到第5条记录处,可使用Seek#语句,故[15]处应填“Seek #10,5”。
转载请注明原文地址:https://jikaoti.com/ti/hXq0FFFM
0

最新回复(0)