以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  随机数的位数问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=107181)
--  作者：douglas738888
--  发布时间：2017/9/22 17:42:00
--  随机数的位数问题

请教老师，下面代码 能生成随机数，但是有时是3位数，有时是5位数，怎样固定在5位数      用NextString又不行

Dim Val As Integer= Rand.Next(99999) \'生成0到99999之间的随机整数
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
txt.text = val

 

另外，TEXTBOX内的数字怎样设置为出现1秒后自动停止TIMERTICK

[此贴子已经被作者于2017/9/22 17:51:26编辑过]
--  作者：有点甜
--  发布时间：2017/9/22 18:02:00
--  

1、

 

Dim Val As string = Rand.Next(100000) \'生成0到99999之间的随机整数
Dim s As String = val.PadLeft(5, "0")
Dim txt As WinForm.TextBox = e.Form.Controls("TextBox1")
txt.text = s

 

2、参考

 

Dim sdt As Date = Date.Now
While Date.Now < sdt.AddSeconds(10)
    Application.DoEvents
End While

msgbox("10秒后执行")