VB随机函数不随机

我指的是RND。。。。

例如 msgbox rnd( * (10))

每次重启程序以后，得出的数据都是一样的

又根据以前的积累，知道貌似随机函数只是带有公式生成数据的函数

但是我自己就想了个办法

弄个TIMER,interval弄少点，然后就在里面弄个随机

一按COMMAND以后就显示当前随机数，这样不就能做到更大限度的随机？

dim a as integer

Private sub Timer1_timer()
a = fix(Rnd * (50))
end sub

Private sub command1_click()
msgbox a
end sub

你们说是不是。。。？


顺便踩踩我在淘宝的小店..有自制VB游戏的源码http://item.taobao.com/item.htm?id=12584485102

VB code

dim a as integer

Private sub Timer1_timer()
Randomize
a = fix(Rnd * (50))
end sub

Private sub command1_click()
msgbox a
end sub

Microsoft(R) Visual Basic(R) Scripting Edition
Randomize 语句 语言参考
起始页|版本 1
 

请参阅 


--------------------------------------------------------------------------------

描述
初始化随机数生成器。
语法
Randomize [number]
number 参数可以是任何有效的数值表达式。

说明
Randomize 使用 number 参数初始化 Rnd 函数的随机数生成器，赋给它新的种子值。如果省略 number，则使用系统计时器返回的值作为新的种子值。
如果不使用 Randomize，则第一次调用 Rnd 函数（无参数）时，它将使用相同的数字作为种子值，随后使用最后生成的数值作为种子值。


--------------------------------------------------------------------------------
 
注意 要重复随机数的序列，请在使用数值参数调用 Randomize 之前，立即用负值参数调用 Rnd。使用相同的 number 值的 Randomize 不能重复先前的随机数序列。 

--------------------------------------------------------------------------------
 


下面例子举例说明如何使用 Randomize 语句: 

Dim MyValue, Response
Randomize '初始化随机数生成器。

Do Until Response = vbNo
  MyValue = Int((6 * Rnd) + 1) ' 产生 1 到 6 之间的随机数。
  MsgBox MyValue
  Response = MsgBox ("Roll again? ", vbYesNo)
Loop


--------------------------------------------------------------------------------
(C) 1998 Microsoft Corporation. All rights reserved. Terms of Use.

为什么不看MSDN呢