欢迎访问服务器技术网-www.fuwuqijishu.com

vb vb 好难哦!帮帮我!

程序设计 fuwuqijishu 2年前 (2022-10-01) 20次浏览 0个评论 扫描二维码

关于这道题怎么写代码?
每隔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

喜欢 (0)
发表我的评论
取消评论
表情 贴图 加粗 删除线 居中 斜体 签到

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址

Warning: error_log(/www/wwwroot/fuwiqijishu/wp-content/plugins/spider-analyser/#log/log-2414.txt): failed to open stream: No such file or directory in /www/wwwroot/fuwiqijishu/wp-content/plugins/spider-analyser/spider.class.php on line 2900