A-A+

下列程序实现的功能是：当在窗体上单击时将随机产生100个3位数并把它们写到D盘根目录下的

2022-08-12 20:17:59 问答库阅读 197 次

问题详情

下列程序实现的功能是：当在窗体上单击时，将随机产生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#10ik Close #10
要使用文件，首先必须打开文件，本题没有说明该文件是随机文件还是顺序文件，因此用随机文件和顺序文件均可以，本题以随机文件处理为例。故[13]应填打开文件的语句，为“"d:\myfilel．dat"ForRandomAs#10”。打开文件后，本题通过一个For循环向文件中写入数，该循环执行了10次，每一次产生一个三位数，并把该数写到文件中去。向随机文件写入数据要用Put语句，故[14]处应填“Put#10，i，k”。文件读写完毕后，应关闭文件，所以[15]处应填“Close#10”。