下列程序实现的功能是：当在窗体上单击时 将随机产生100个3位数 并把它们写到D盘根目录下的文件my
下列程序实现的功能是：当在窗体上单击时，将随机产生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
请帮忙给出正确答案和分析，谢谢！
参考解答
422***262
2023-07-21 07:37:19
正确答案：'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”。
相似问题
以下程序的功能是单击Command1按钮 将输出1～100之间的所有同构数。同构数是指该数出现在它的
以下程序的功能是单击Command1按钮，将输出1～100之间的所有同构数。同构数是指该数出现在它的平方数的右边，如52=25、252=625。 Private Sub Command
在窗体上建立名称为了ext1 Text2和Text3的三个文本框 其中Text1和Text2文本框用
在窗体上建立名称为了ext1、Text2和Text3的三个文本框，其中Text1和Text2文本框用来接受两个整数(假设为M和N)，建立一个名称为Command1的命令按钮，单击
下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的最大数及其下标 请填空。 Option
下列程序的功能是：单击窗体时将求出随机生成的10个两位数中的最大数及其下标，请填空。 Option Base 1 Private Sub Form_Click() Dim a(10) As
下面程序的功能是：求出所有的三位数 其各位数字的立方和等于该数。如： 153=13+53+33。 O
下面程序的功能是：求出所有的三位数，其各位数字的立方和等于该数。如： 153=13+53+33。 Option Explicit Private Sub Form_Click() Dim x1 As
下列程序的功能是：当发生窗体的单击事件时 求出3～1000之间的所有素数的和以及所有能被3和5整除的
下列程序的功能是：当发生窗体的单击事件时，求出3～1000之间的所有素数的和以及所有能被3和5整除的数的和(素数是指只能被1和它本身整除的数)，并在窗体
