ExcelVBA与python产生不重复随机数

2022-10-25 12:53:24 浏览数 (1)

=======ExcelVBA=====

VBA编程实现不重复随机数输出。VBA里的随机函数是RND,在工作表中随机函数是RAND,一字之差,可要记好了。RND取值范围是[0,1),意思是0和1之间的一个随机数,包含0,但不包含1。

1、用法

语法:Rnd[(number)]

  如果 number 的值是Randomize 生成

  小于 0 ,每次都使用number 作为随机数种子得到的相同结果。

  大于 0 ,以上一个随机数为种子产生下一个随机数。

  等于 0 ,产生与最近生成的随机数相同的随机数。

  省略, 以上一个随机数为种子产生下一个随机数(同大于0)。

说明:

  Rnd 函数返回小于 1 但大于或等于 0 的值。

  number 的值决定了 Rnd 生成随机数的方式。

  对最初给定的种子都会生成相同的数列,因为每一次调用 Rnd 函数都用数列中的前一个数作为下一个数的种子。

  在调用 Rnd 之前,先使用无参数的 Randomize 语句初始化随机数生成器(若带参数,则产生由参数对应的一个特定序列的随机数),该生成器具有根据系统计时器得到的种子。如果不使用Randomize 语句,那么每次执行程序时产生的随机数序列是相同的。

  Rnd 后面跟一个负数时,同样的参数可以得到完全相同的两个序列,例如,rnd -1执行后用rnd取1000个随机数,然后再执行rnd -1,然后再用rnd取1000个随机数,这1000个随机数和前面1000个完全相同。为了得到不同的序列,可以用不同的负数,也可以在rnd -1后面执行Randomize number。注意,要得到相同的序列,两次Randomize后面的number必须相同。这种方法用途之一就是用于加密和解密。

  为了生成某个范围内的随机整数,可使用以下公式:

  Int((upperbound - lowerbound 1) * Rnd lowerbound)

  这里,upperbound 是随机数范围的上限,而 lowerbound 则是随机数范围的下限。

  注意:若想得到重复的随机数序列,在使用具有数值参数的 Randomize 之前直接调用具有负参数值的 Rnd。使用具有同样 number 值的 Randomize 是不会得到重复的随机数序列的。

'===生成不重复的随机数=========

'参数:number:要取几个数,UB_num:数据范围在1---“最大数”

'使用:brr=RndNumberNoRepeat3(20,100),生成1-100之间的20个不重复的整数

'=========================

Function RndNumberNoRepeat3(number AsInteger, UB_num As Integer)

Dim d As Object 'New Dictionary

Dim s As Integer

Randomize (Timer) '初始化随机数生成器

Set d = CreateObject("Scripting.Dictionary")

Do Until d.Count = number

s = Int(Rnd * UB_num 1)

d(s) = "" '这里用字典进行排除重复

Loop

RndNumberNoRepeat3 = Application.Transpose(d.Keys)

End Function

‘===下面使用上面的自定义函数=====

Sub 测试ttt()

Range("a1:a"& Cells(Rows.Count, 1).End(xlUp).Row).ClearContents '.ClearComments

brr = RndNumberNoRepeat3(5, 46)

Range("a1").Resize(UBound(brr))= brr

End Sub

=====python生成不重复的随机数=====

Python产生一个数值范围内的不重复的随机数,可以使用random模块中的random.sample函数,其用法如下:

>>>import random

>>>random.sample(population,k)

函数从序列或集合population中返回一个长度为k的随机数列表,并且列表中的随机数元素之间是不重复的,如:

【方法一】

>>>a =[1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20]

>>>a

[1,2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13,14, 15, 16, 17, 18, 19, 20]

>>>b = random.sample(a,5)

>>>b

[1,14, 18, 19, 16]

【方法二】

>>>import random

>>> mylist

['杨过', '小龙女', '孙婆婆', '李莫愁', '林玉', '公孙止', '裘千尺', '公孙绿萼', '武三娘', '武敦儒', '武修文', '郭芙', '郭襄', '郭破虏', '耶律齐', '耶律燕', '完颜萍', '何师我']

>>> brr=random.sample(mylist,5)

>>> brr

['郭襄', '公孙止', '武修文', '杨过', '完颜萍']

【方法三】

>>> import random

>>>b=random.sample(range(1,101),20)

>>>b

[81, 65, 2, 97, 92, 29, 78, 49, 22, 98, 55,71, 8, 56, 66, 100, 58, 96, 85, 94]

vba

0 人点赞