用VF或VB编写一个送三位数内（比如100）里随机产生一个数字显示在文本框里？

来源：百度知道 编辑：UC知道 时间：2024/09/24 21:59:05
请提供源码！谢谢，急用！
能提供点选按钮（开始停止），在文本框能显示随机数字。
最好是VF语言的！

Private Sub Command1_Click()
Randomize
Text1 = Int(100 * Rnd + 1)
End Sub

这是1-100的.. 你是指的这个吗?

楼主是指文本框内一直在变化.通过按钮来开始或停止吗??

那应该添加一个按钮.一个timer,和一个Text,
全部代码如下:

Private Sub Command1_Click()
Command1.Caption = IIf(Command1.Caption = "开始", "停止", "开始")
Timer1.Enabled = Not Timer1.Enabled
End Sub

Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 100
Command1.Caption = "开始"
Text1 = ""
End Sub

Private Sub Timer1_Timer()
Randomize
Text1 = Int(100 * Rnd + 1)
End Sub

三位数指100－999吧

用 Text1=int(900*rnd+100)

楼上的几位太复杂了，其实很简单
在表单新建一个文本框
然后在表单的init中写
thisform.text1.value=int(rand()*999)
就可以了