[按键精灵安卓版] 小知识点合集1 - 【201509期】 [复制链接]

学习

不错不错

谢谢分享

很好。。。

谢谢学习了

加密的我要看一看了

顶，又来学习了，回个贴。

Dim 延迟 = ReadUIConfig("输入框1")
Swipe 300, 269, 300, 132, 2222
Delay 延迟

学习学习

谢谢

膜拜，学习

谢谢谢谢 谢谢分享学习了22

地方大大大大大大大大大大大大大大大大

学习充电咯

学习中 谢谢分享

学习了学习了

学习学习

小知识点合集1 - 【201509期】修改

Function 方法2()
Dim MyTime = TickCount()
Dim 区间大小 = 总个数/抽取个数
For i = 0 To 抽取个数-1
arr(i) = 生产随机数(1,区间大小)+i*区间大小
Next
打乱顺序(arr,抽取个数)
TracePrint "方法2耗时为(毫秒)："&(TickCount() - MyTime)
End Function

Function 打乱顺序(arr, count)
Dim index,tmp,i
For i = 0 To count
index = Rnd() * (count - i) + i
If index <> i Then
tmp=arr(i)
arr(i)=arr(index)
arr(index)=tmp
End If
Next
End Function

Call 方法2()
Function 方法2()
Dim MyTime = TickCount()
Dim 区间大小 = 总个数/抽取个数
For i = 0 To 抽取个数-1
arr(i) = 生产随机数(1,区间大小)+i*区间大小
Next
打乱顺序(arr,抽取个数)
TracePrint "方法2耗时为(毫秒)："&(TickCount() - MyTime)
End Function

Function 打乱顺序(arr, count)
Dim index,tmp,i
For i = 0 To count
index = Rnd() * (count - i) + i
If index <> i Then
tmp=arr(i)
arr(i)=arr(index)
arr(index)=tmp
End If
Next
End Function

Call 方法2()

6666jjj个