QBasic 中从 0 到 100 的随机数

Gal*_*ala 5 random qbasic quickbasic

我需要一个从 0 到 10 或从 0 到 100 的完全随机数作为在 QBasic 中完成的随机抽取程序的值“NUM”。我目前有这个:

RANDOMIZE TIMER: A = INT((RND * 100)): B = INT((RND * 10)): C = (A + B)
NUM = INT(C - (RND * 10))
Run Code Online (Sandbox Code Playgroud)

这基本上只是一堆随机数学运算,以获得 1 到 100 之间的随机数。

问题是我经常得到相同或非常相似的数字。有更可靠的方法来做到这一点吗?

bug*_*net 2

试试这个Rand 函数用作

NUM = Rand(0, 100)
Run Code Online (Sandbox Code Playgroud)

  • @Jongware在我充足的业余时间(不是!)我希望尝试http://stackoverflow.com/questions/6275593/how-to-write-you-own-random-number-algorithm(特别是 XORShift)和 http://en.wikipedia.org/wiki/List_of_pseudorandom_number_generators 。QBASIC 的实现应该是一个有趣的(不卫生的?)挑战。 (2认同)