VBA中rnd取随机数，怎么取不等于几的随机数

例如我想取1-45的随机整数，就写a=int(45*rnd+1)
那么我想取1-45的随机整数，同时a不等于5,6,8,15,21怎么写
再那么我想取1-45的随机整数，同时a不等于变量b，c，d怎么写

推荐答案 2018-10-16

止血方法，不编程序，
定义数组arr1，将1、2、3……45循环push到数组arr1中，
定义数组arr2，将5、6、8、15、21循环push到数组arr2中，
双循环查找arr2中每一个元素在arr1中的位置，查找结果为-1，则删除arr2该元素，否则删除arr1中相应位置的元素，
令n=int(arr1长度*rnd)，提取a=arr1[n]
后面一个问题，差不多如法炮制，但不需要预先push b，c，d的值到数组arr2中，因为b、c、d 的值会随时改变的，临时取随机数之前，直接 arr[0]=b、arr[1]=c、arr[2]=c

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/nn9i9xnvnv9U2pUnn2i.html

其他回答

第1个回答 2018-10-16

可以设一个40单元的数组，顺序赋1-45中不等于5,6,8,15,21的整数值。然后在这40单元里随机取。。。

相似回答

VB 中 RND 产生的随机数的范围是什么?答：回答：语法Rnd[(number)] 可选的 number 参数是 Single 或任何有效的数值表达式。返回值如果 number 的值是 Rnd 生成 小于 0 每次都使用 number 作为随机数种子得到的相同结果。大于 0 序列中的下一个随机数。等于 0 最近生成的数。省略序列中的下一个随机数。说明Rnd 函数返回小于 1...

vba随机函数RND怎么用?答：等于 0 ，产生与最近生成的随机数相同的随机数。省略，以上一个随机数为种子产生下一个随机数。说明Rnd 函数返回小于 1 但大于或等于 0 的值。number 的值决定了 Rnd 生成随机数的方式。对最初给定的种子都会生成相同的数列，因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。在...

vb中如何取得随机3位数?答：公式：rnd()*(数字上限-数字下限+1) + 数字下限 另外在使用rnd前用randomize初始化随机数种子就可以避免每次输出相同值

如何用VBA生成指定范围内的随机数?答：5、Small函数的第二个参数，也就是从这个序列中取第几个最小值，在得到的数字中，利用随机函数rand和row函数，实现在这有个个数中随机抽取一个数字，从而得到排序中这个数字顺序的一个数字。通过这样一个数组公式，就实现了生成一组不重复的随机数字啦。方法二：VBA法 1、VBA功能强大，可以利用很多...

VB 产生1-400的随机数用int(Rnd)答：Private Sub Command1_Click()Dim a As Integer Randomize a = Int(Rnd() * 400) + 1 Print a End Sub

如何使VB中Rnd函数产生的随机数是在[0,1]内?答：VB的Rnd函数，其作用就是产生(0,1)之间的随机数，还不是[0，1]。即：0 < Rnd < 1 根据上式，结合VB的Int（）等函数，可以产生你所需要的任意范围内的随机数。例如1：根据 0 < Rnd < 1 那么就有：0 < Rnd 10 < 10 产生(0,10)之间的随机数，注意这是实数例如2：0 <= Int（Rnd ...

大家正在搜

excel随机数相加等于指定数 Excel随机数字之和等于总数如何使随机数之和等于固定值随机数求和等于固定值随机数相加等于固定值总数确定随机数 excel整数随机数 excel区间范围取值随机数 excel随机数不再变动