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

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

[填空题] 下列程序实现的功能是：当在窗体上单击时，将随机产生100个3位数，并把它们写到D盘根目录下的文件myfile1．Dat中。 Private Sub Form_Click() Dim k As Integer Open 【13】 Randomize For i=1 To 10k=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”。