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

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

admin2009-02-13  81
问题 下列程序实现的功能是：当在窗体上单击时，将随机产生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://www.kaotiyun.com/show/461p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)