Question

按键精灵3次随机数不能重复，求大神解决！

t1 = time
Do
a = Int((6 - 1 + 1) * Rnd + 1)
TracePrint a
Loop Until DateDiff("s",t1,time)>1
If a = 1 Then
Call a1
ElseIf a = 2 Then
Call a2
ElseIf a = 3 Then
Call a3
ElseIf a = 4 Then
Call a4
ElseIf a = 5 Then
Call a5
ElseIf a = 6 Then
Call a6
End If
Sub a1
MoveTo 1548,327
Delay 1000
KeyPress "Num 1", 1

//脚本1
End Sub
Sub a2
MoveTo 1548,327
Delay 1000
KeyPress "Num 2", 1
//脚本2
End Sub
Sub a3
MoveTo 1548,327
Delay 1000
KeyPress "Num 3", 1
//脚本3
End Sub
Sub a4
MoveTo 1548,327
Delay 1000
KeyPress "Num 4", 1
//脚本4
End Sub
Sub a5
MoveTo 1548,327
Delay 1000
KeyPress "Num 5", 1
//脚本5
End Sub
Sub a6
MoveTo 1548,327
Delay 1000
KeyPress "Num 6", 1
//脚本6
End Sub

t1 = time
Do
b = Int((6 - 1 + 1) * Rnd + 1)
TracePrint b
Loop Until DateDiff("s",t1,time)>1
If b = 1 Then
Call b1
ElseIf b = 2 Then
Call b2
ElseIf b = 3 Then
Call b3
ElseIf b = 4 Then
Call b4
ElseIf b = 5 Then
Call b5
ElseIf b = 6 Then
Call b6
End If
Sub b1
MoveTo 1548,327
Delay 1000
KeyPress "Num 1", 1

//脚本1
End Sub
Sub b2
MoveTo 1548,327
Delay 1000
KeyPress "Num 2", 1
//脚本2
End Sub
Sub b3
MoveTo 1548,327
Delay 1000
KeyPress "Num 3", 1
//脚本3
End Sub
Sub b4
MoveTo 1548,327
Delay 1000
KeyPress "Num 4", 1
//脚本4
End Sub
Sub b5
MoveTo 1548,327
Delay 1000
KeyPress "Num 5", 1
//脚本5
End Sub
Sub b6
MoveTo 1548,327
Delay 1000
KeyPress "Num 6", 1
//脚本6
End Sub

t1 = time
Do
c = Int((6 - 1 + 1) * Rnd + 1)
TracePrint c
Loop Until DateDiff("s",t1,time)>1
If c = 1 Then
Call c1
ElseIf c = 2 Then
Call c2
ElseIf c = 3 Then
Call c3
ElseIf c = 4 Then
Call c4
ElseIf c = 5 Then
Call c5
ElseIf c = 6 Then
Call c6
End If
Sub c1
MoveTo 1548,327
Delay 1000
KeyPress "Num 1", 1

//脚本1
End Sub
Sub c2
MoveTo 1548,327
Delay 1000
KeyPress "Num 2", 1
//脚本2
End Sub
Sub c3
MoveTo 1548,327
Delay 1000
KeyPress "Num 3", 1
//脚本3
End Sub
Sub c4
MoveTo 1548,327
Delay 1000
KeyPress "Num 4", 1
//脚本4
End Sub
Sub c5
MoveTo 1548,327
Delay 1000
KeyPress "Num 5", 1
//脚本5
End Sub
Sub c6
MoveTo 1548,327
Delay 1000
KeyPress "Num 6", 1
//脚本6
End Sub

Answer 1

【按键精灵】生成随机数的技术。先上代码。
Do
Randomize
XO = rnd()*10
YO = XO + 90
XO = int(XO)
YO = int(YO)
TracePrint "0-9以内的随机数:"&XO
TracePrint "90-99以内的随机数:"&YO
Delay 1000
loop

Answer 2

考虑考虑吧离家近距离

Answer 3

不能吧？？？？？？？

Answer 4

给你走咯破热1我摩配你以为你第一题弥尔顿你弟娃他听爹应用举例我破坏敏华those

Answer 5

名同姓的人也不在少数，但是我们的指纹都是独一无二的，没有任何人的指纹是完全相同。而且随着科技的发展，指纹识别技术对人们日常生活有着重要的影响。一开始这样技术只是用来帮助警察寻找罪犯，但是随着指纹识别技术的普及和应用，人们在生活中也经常会用到自己的指纹，现在的智能手机基本上都会有指纹解锁功能，但是大家可能不知道的是，其实指纹识别早在2000年前就已经在我们的先祖应用，老祖宗的智慧真不是吹的！