关于这道题怎么写代码?
每隔2min在文本框新的一行上输出当前的系统时间及生成的10个(0,100)之间的随机整数,文本框带双向滚动条.
实在是难!!的问题
楼主好像没有要求说要把内容写如到文本文件中啊???
简化的程序:
Option Explicit
dim rndwb,i as interger
dim wb as str
private sub form_load()
eval=2000’设置timer1的inteval为2000(就是2秒)
end sub
Private Sub Timer1_Timer()
wb=””‘每次必须要清空该变量的内容,否则会叠加的
For i = 0 To 9
rndWb = Int(Rnd(1) * 101)
wb = wb & Str(rndWb)’不用再加空格了,因为正数被str后,前面会有一个空格
Next
text1。
text=time$ & wb & chr(13)& chr(10) & text1。text
End Sub
‘再用一个按钮来控制timer1的运行
Private Sub Command3_Click()
timer1。enable=not timer1。
enable
End Sub
。