主题：随机数的位数问题

请教老师，下面代码 能生成随机数，但是有时是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

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秒后执行")