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

23 查阅

[填空题] 下列程序实现的功能是:当在窗体上单击时,将随机产生100个3位数,并把它们写到D盘根目录下的文件myfile1.Dat中。

Private Sub Form_Click()

Dim k As Integer

Open 【13】

Randomize

For i=1 To 10

k=100+Int(899*Rnd)

【14】

Next i

【15】

End Sub

参考答案:

[AC]"d:myfilel.dat" For Random As #A0 [AD]Put#A0,i,k[AE]Close #A0

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

计算机考试