![[填空题] 下列程序段的功能是，单击命令按钮后，将随机产生10个三位数，并将这些数写到C盘根目录下的data.txt文件中。请填空。 Private Sub Command1_Click() Di](http://www.mshxw.com/aiimages/31/256332.png "[填空题] 下列程序段的功能是，单击命令按钮后，将随机产生10个三位数，并将这些数写到C盘根目录下的data.txt文件中。请填空。 Private Sub Command1_Click() Di")
[填空题] 下列程序段的功能是，单击命令按钮后，将随机产生10个三位数，并将这些数写到C盘根目录下的data.txt文件中。请填空。
Private Sub Command1_Click()
Dim a As Integer
Open 【9】 For Output As #100
Randomize
For i =1 To 10
a=100+Int(899*Rnd)
【10】
Next i
Close #100
End Sub
参考答案：
"d:datalll.txt" Write #A00,a问题解析:
首先打开顺序文件。第一个空填文件的路径与文件名。使用Write将数据写入文件内，格式为“Write #100，a”，即把变量a的值写入文件号为100的文件内。
