廉颇 程咬金:VB6里面如何生成一个随机的0到100的整数?

来源:百度文库 编辑:高校问答 时间:2024/05/06 18:01:39
我用过rnd,但每次程序重新启动生成的数字都一样。

你们说的不对,在VB6中要产生区间[0,100]内的整数,应该是这样:

Randomize
n=Int(Rnd*101)

放心,我自己测试过了,没问题,实践是检验真理的唯一标准,哈哈!

VB6.0可使用Rnd函数和Int函数编写代码生成一个随机的0到100的整数。

  • Rnd 函数,返回一个包含随机数值的 Single。

  • Int、Fix 函数,返回参数的整数部分。

  • Rnd 函数示例

    本示例使用 Rnd 函数随机生成一个 1 到 100 的随机整数。

    Dim MyValue

    MyValue = Int((100 * Rnd) + 1)   ' 生成 1 到 100 之间的随机数值。


Randomize timer()

前面加上这个

Randomize timer() 防止重新启动

n=Int(Rnd*101) 上-下+1

dim a as integer
a=fix(rnd*100)