Question

按键精灵怎么随机生成1到12数字并且不重复

按键精灵怎么随机生成1到12数字并且不重复？
一个游戏里有12个技能，怎么让每次随机使用技能不重复并且都能使用完？

Answer 1

Dim RndNum(11)
Dim n, i, m, Result

'初始化数组
For i = 0 To 11
	RndNum(i) = 0
Next

'生成1-12随机数
n = 0
Randomize
RndNum(0) = Int(12 * Rnd + 1)
While n < 11
	Result = 0  '随机数重复标志，0表示不重复，1表示重复
	Randomize
	m = Int(12 * Rnd + 1)
	'For循环判断生成随机数是否和前面重复
	For i = 0 To n
		If m = RndNum(i) Then 
			Result = 1
		End If
	Next
	
	If Result = 0 Then 
		n = n + 1
		RndNum(n) = m	
	End If
Wend
'数组RndNum存放结果，下面这一句是查看结果的
MessageBox Join(RndNum, "|")

追问

谢谢大神，还有想问下，每次随机得到的数字怎么按顺序按下键盘按键

追答

你这里说的“键盘按键”不清楚，1-9可以按键，但是10，11，12怎么按？

追问

简单的说，就是“键盘随机按键+不重复”
我写到这里就不会写了
Sub 随机技能
dim key(12),i
key(0) = 96
key(1) = 97
key(2) = 98
key(3) = 99
key(4) = 100
key(5) = 101
key(6) = 102
key(7) = 103
key(8) = 104
key(9) = 105
key(10) = 107
key(11) = 109
Randomize
i=int((12)*rnd)
KeyPress key(i), 1
End Sub

Answer 2

其实我觉得直接获取系统的时间秒数，再称一个倍数再除相关倍数控制在你想要的范围就好了，比如1~12的话，总共就60秒，那直接获取系统秒数再乘2除10就完了，当然如果你是要短时间内生成特别多随机数的话这个方法就不怎么可取了