谁可以帮我写个5000-6000里面随即数!
谁可以帮我写个5000-6000里面随即数!在VB6.0 Label里面5000-6000随即数变化 用Timer控制时间变化!
谢谢了 --------------------编程问答-------------------- Function 随机数() as long
Randomize
随机数=int(rnd * 1000)+5000
End Function
产生一个5000到6000的随机数 --------------------编程问答-------------------- 用Timer控制时间变化
是什么意思?
随机数我可以帮你
--------------------编程问答--------------------
产生的随机数=int(rnd() * 1000) + 5000
'Rnd函数是生成一个0到1的随机数
'Int函数是将一个数转换为比那个数小一点的整数
Private Sub Form_Load()--------------------编程问答-------------------- 谢谢大家。。 --------------------编程问答-------------------- Private Sub Form_Load()
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Randomize
Label1.Caption = Int((1000 * Rnd) + 5000)
End Sub
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Randomize
Label1.Caption = Int((1000 * Rnd) + 5000)
End Sub
正解 --------------------编程问答-------------------- int(rnd() * 1000) + 5000
--------------------编程问答-------------------- 我也是这个答案 --------------------编程问答-------------------- CInt(rnd * 1000)+5000
--------------------编程问答-------------------- 路过.......帮顶...... --------------------编程问答-------------------- 顶。。
酱油还没买。 --------------------编程问答-------------------- 路过.......帮顶...... --------------------编程问答-------------------- Private Sub Form_Load()
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Randomize
Label1.Caption = Int((1000 * Rnd) + 5000)
End Sub 、
这个非常正确 --------------------编程问答-------------------- 你是想要数为包括6000的话就要改一下,
Rnd要乘以1001因为Rnd是永远不会为1的。
Private Sub Form_Load()
Timer1.Interval = 500
End Sub
Private Sub Timer1_Timer()
Randomize
Label1.Caption = Int((1001 * Rnd) + 5000)
End Sub --------------------编程问答-------------------- 取A到B之间的随机数R(B>A):
(A<=R<=B)
L=B-A
M=L+1
P=A
R=Int(Rnd*M)+P
--------------------编程问答-------------------- 小仙妹研究过高度随机算法没? --------------------编程问答--------------------
没专门研究过。
只是研究过如何提高随机性。除了常见的Randomize Timer之外。我比较喜欢利用外部输入的时间间隔,比如两次键盘输入的细微时间差。但这种方法也不绝对可靠。 --------------------编程问答-------------------- http://topic.csdn.net/u/20080410/17/4138bc06-7c26-4fb7-b283-dbd6eb46f43f.html
豆子在这里用了一个微软的加密APIs中的一个,这个API的随机度我觉得比起VB的RND是要好不少了.
要是能再提高就好了.....嘿嘿. --------------------编程问答--------------------
补充:VB , 基础类