在vb中我使用rnd并在一定的时间间隔内在文本框中产生随机数，我如何把这些随机数保存到用Vb建立的一个文档中（保存数据也要有一定的时间间隔）？
Dim strFileName As String '文件名

Dim lngHandle As Long '句柄

Dim strWrite As String '要写入的文本内容

strFileName = "e:\w.txt"

lngHandle = FreeFile() '取得句柄

'准备要写入的内容

strWrite = Text1.Text

Open strFileName For Output As lngHandle '打开文件

Print #lngHandle, strWrite '写入文本

Close lngHandle '关闭文件
以上是我在vb中建立的一个文档.

Text1.Text=Int(Rnd*100)
随机数0.5秒产生一个，我需要0.1秒记录一次Text1。Text中的内容，并将之写入到文档中。有哪位大侠能指导一下。谢谢了！！！

[此贴子已经被作者于2007-4-7 21:47:01编辑过]

怎么没有人回复啊？

看着那语句水平比我高
不过用timer 不行吗
个人建议
timer1.interval=100
定义一个全局变量初值为零
在timer事件中每次全局变量加一
当全局变量为5时产生随机数
6时纪录并写入文件 全局变量赋0



不要鄙视我

谢谢你的建议！虽然不能实现我的功能，但也给了我一些启发。
你的那种方法只能记录一个随机数到文档中。

顶