UC知道如何用VB从指定的数里生成出个随机数
来源：百度知道 编辑：UC知道 时间：2024/05/11 19:59:15
如何用VB从指定的数里生成出个随机数,如想从,2,3,5,7,8这五个数里生成随机数,该如何做,还有比如我想生成两个按扭,按下一个,生成的随机数会在窗体内不停的快速循环显示,按下停止按钮就输出数字.该如何写出
假如我想把自己要生成的随机数TEXT1.TEXT 里生成 ,该如何写,
比如,我在TEXT1.TEXT里写入0,1,3,5,7,9这六位数,数的中间,以豆号或空格 格开,从中生成一个随机数显示到TEXT2.TEXT,当按下COMMAND1随机数会不停的循环显示,当按下COMMAND2的时候循环停止,随机数显示在TEXT2.TEXT该如何做,如果可以的话,希望能详细一点.谢谢.最好能做个例子!!
假如我想把自己要生成的随机数TEXT1.TEXT 里生成 ,该如何写,
比如,我在TEXT1.TEXT里写入0,1,3,5,7,9这六位数,数的中间,以豆号或空格 格开,从中生成一个随机数显示到TEXT2.TEXT,当按下COMMAND1随机数会不停的循环显示,当按下COMMAND2的时候循环停止,随机数显示在TEXT2.TEXT该如何做,如果可以的话,希望能详细一点.谢谢.最好能做个例子!!
第一个问题：你可以先这几个数放丰一个数组中，然后随机生成一个下标，不就行了。第二个问题：你在窗体上画两个按钮Command1、Command2、一个Timer控件Timer1、一个标签Label1。
Timer1的Enabled属性设为False，Interval设为100。双击Command1，写下列代码：
Timer1.Enabled = True。
双击Command2，写下列代码：
Timer1.Enabled = False
双击timer1，写下列代码：
Dim A(4) As Integer, I As Integer
A(0) = 2: A(1) = 3: A(2) = 5: A(3) = 7: A(4) = 8
Randomize
I = Int(Rnd() * 4)
Label1.Caption = A(I)
a(1)=2:a(2)=3:a(3)=5:a(4)=7:a(5)=8
i=int(rnd()*5+1)
text1.text=a(i)