下列程序实现的功能是:当在窗体上单击时,将随机产生100个3位数,并把它们写到D盘根目录下的文件myfile1.Dat中。 Private Sub Form_Click() Dim k As Integer Open【 】

admin2009-02-13  45

问题 下列程序实现的功能是:当在窗体上单击时,将随机产生100个3位数,并把它们写到D盘根目录下的文件myfile1.Dat中。
   Private Sub Form_Click()
      Dim k As Integer
      Open【  】
      Randomize
      For i=1 To 10
         k=100+Int(899*Rnd)
         【  】
      Next i
     【  】
   End Sub

选项

答案"d:\myfilel.dat" For Random As #10 , Put#10,i,k , Close #10

解析 要使用文件,首先必须打开文件,本题没有说明该文件是随机文件还是顺序文件,因此用随机文件和顺序文件均可以,本题以随机文件处理为例。故[13]应填打开文件的语句,为“"d:\myfilel.dat" For Random As #10”。打开文件后,本题通过一个For循环向文件中写入数,该循环执行了10次,每一次产生一个三位数,并把该数写到文件中去。向随机文件写入数据要用Put语句,故[14]处应填“Put #10,i,k”。文件读写完毕后,应关闭文件,所以[15]处应填“Close #10”。
转载请注明原文地址:https://jikaoti.com/ti/R5q0FFFM
0

最新回复(0)