Excel简单三步实现随机抽奖,用VB编程设置两个按钮:开始,结束(按钮控制代码:
Dim k As Integer '定义公共变量
Sub start_Click()
k = 0
Do
[H100] = k
DoEvents
Loop Until k = 1
If a = 1 Then Exit Sub
End Sub
Sub stop_Click()
k = 1
End Sub)
既然是根据当前的时间,那么我们第一步就是获取当前时间,然后拼接一个随机数,这样便实现了随机生成一个流水号,注意由于要求每个流水号都是独一无二的,生成后提交的过程中还是需要验证当前的流水号是否存在,如果存在则需要提示用户或者再次生成。
// 根据当前时间和随机数生成流水号
randomNumber() {
const now = new Date()
let month = now.getMonth() + 1
let day = now.getDate()
有些时候我们需要从视频序列中均匀的随机采样,我们可以每隔x步进行一次采样,这就要求对一个list每隔x步进行一次截取,再从截取到的不同的子集中随机选取一个数就是我们平均采样的帧的idx。
import random
def split(a, n):
k, m = divmod(len(a), n)
return [a[i * k + min(i, m):(i + 1) * k + min(i + 1, m)] for i in list(range(n))]
list_split =