1、Do While i lt= 8 #39第一层循环，用于取8个数 cf = False #39是否取到了重复的数 Randomize k = IntRnd * 50 + 1 #39获取随机数 For j = 1 To i #39第二层循环，判断是否取到的数字发生了重复 If k =；Intupperbound lowerbound + 1 * Rnd + lowerbound这里，upperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限注意 若想得到重复的随机数序列，在使用具有；vb中产生a，b区间的随机数的公式是Intb a+ 1Rnd + a2根据以上公式得出，根本无法以公式法生成a，b半开区间范围内的随机数3Rnd 函数返回小于 1 但大于或等于 0 的值4int是取整函数；以下代码产生20，50的随机数20+intrnd*31；得到指定范围随机整数 公式 cintrnd*最大值最小值+1+最小值 不重复的话，可以使用个巧妙的方法 1，添加一个list控件 其list中有119 共19行 2， 每得到一个随机数，就去掉list控件中的相应行，然后把公式中的。

2、1设置随机产生n，m之间的随机数mn，最小的随机数是n，然后在n的基础上加上mn的差值内的随机数就可以了2随机数代码是intrnd*mn+n 3产生两个数之间的随机数闭区间示例以产生一个10，90；在VB中，生成随机数的话主要是利用Rnd这么一个内置的函数，VB很简单，你什么都不需要去引用就可以直接使用，具体用法如下语法Rndnumber作用产生一个0，1之间的一个随机数 使用Rnd产生的随机数决定于Number。

3、lowerbound 则是随机数范围的下限注意 若想得到重复的随机数序列，在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的；Visual Basic中随机函数 格式Rndlt数值表达式功能求0，1之间的一个随机数 语法 Rndnumber如果 number 的值是 Randomize 生成 小于 0 ，每次都使用 number 作为随机数种子得到的相同结果大于 0 ，以上一；VB使用Rnd 函数产生随机数Rnd 函数，返回一个包含随机数值的 SingleRnd 函数示例 本示例使用 Rnd 函数随机生成一个 1 到 6 的随机整数Dim MyValue MyValue = Int6 * Rnd + 1 #39 生成 1 到 6 之间；text1text=intrnd*20+1为了生成某个范围内的随机整数，可使用以下公式Intupperbound lowerbound + 1Rnd + lowerboundupperbound 是随机数范围的上限，而 lowerbound 则是随机数范围的下限Rnd 函数 返。

4、rnd产生一个0，1的随机数如果你要产生一个5到10的随机数，则使用以下代码 randomize msgbox quot产生一个1到10的随机数quot intrnd*105+1+5就可以了；Randomize #39随机种子初始化Dim Int_A As IntegerInt_A=IntRnd*10 #39生成09之间的随机整数Int_A=IntRnd*100 ‘生成099之间的随机整数；在计算机程序设计语言中，都有定义了产生随机数的函数，程序员只要调用该函数，就可以产生随机数数学中，函数需要有一个或多个自变量，那么产生随机数的函数，也需要一个自变量下面解释vb的rnd函数与randomize函数的作用；VB生成1100之间的随机整数，可以使用系统自带的Rnd方法进行实现，代码如下Private Sub Command_Click Dim MyValue 定义一个随机数 MyValue = Int100 * Rnd + 1 rnd函数生成随机数 Print。