• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

返回列表 12345678» / 10
发新话题 回复该主题

[技术交流] 【院刊】-【201501期】什么?随机数不重复还可以这样写? [复制链接]

41#

我看看

42#

3222222222222222

dhtturtur

43#

谢谢分享啊

44#


45#

6666666666

46#

】什么?随机数不重复还可以

47#

我要回复看一看隐藏

48#

666666666666

49#

生成10个范围在10以内的随机数

50#

顶个学习下!不错的呀!

51#

or i = 0 To 9
Randomize
TmpRnd = Int(rnd * 10)
For j = 0 To i - 1
If TmpDat(j)=TmpRnd Then
i = i - 1 : TmpBol = TRUE
End If
Next
If TmpBol Then TmpBol = False Else TmpDat(i) = TmpRnd : TracePrint TmpRnd
Next

正在撰写博客,按键代码之手到擒来篇
52#

kankan

53#

快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看快看坎坎坷坷222222222222222

54#

11111111111111111111111111

11111111111111111111111111111

55#

好东西,学习中的新人感谢楼主

56#

【院刊】-【201501期】什么?随机数不重复还可以这样写?

57#

1111111111111111111111111111111

58#

Dim i=1,i1,i2
Do
    
Delay 500
Tap 319, 1080
Delay 800
Do

Dim intX, intY
FindPic 0, 0, 0, 0, "Attachment:群聊.png", "000000", 0, 0.9, intX, intY
If intX > -1 And intY > -1 Then
TracePrint intX&intY
Tap intX, intY
Delay 1000
Else
Swipe 350, 350, 350, 900
Delay 500
End If
Loop Until intX > -1
Delay 1000

i1 = i mod 7
i2=i\7
For i2
TouchDown 400, 1095, 1
TouchMove 300, 290, 1, 800
TouchUp 1


Next
TracePrint i2&"页"
Dim rColor
rColor = GetPixelColor(631, 1122)
If rColor = "A2A1A1" Then
TracePrint "退出"
Exit Sub
End If
Delay 800
Tap 280, 420+(i1-1)*112
i=i+1
Delay 1000

Dim intX1,intY1,intX2,intY2
FindMultiColor 0, 0, 0, 0, "FEF9EB", "-19|2|FEF9EB,-11|32|FEF9EB,-15|1011|93837F,-547|1007|93837F,-120|1022|93837F,-202|982|E5E5E5,-152|983|E5E5E5,-63|982|E5E5E5", 0, 0.9, intX1, intY1
If intX1 > -1 And intY1 > -1 Then
TracePrint intX1



If ReadUIConfig("多选框5") = True Then
Call 文字()
End If

If ReadUIConfig("多选框2")=True Then
Call 添加图片()
TracePrint "图片"
End If
If ReadUIConfig("多选框4") = True Then
Call 红包()
End If
Tap 71, 80
Delay 800




End If
TracePrint intX2&"返回"
Tap 69, 83
Delay 1000
Loop

59#

我在学校

60#

恶趣味额企鹅完全额外

发新话题 回复该主题