xwca4l 发表于 2020-10-13 23:33:22

AutoIt3实现随机数算法

AutoIt3实现了产生随机数的算法，封装成函数_Random()后提供使用，通过调用该函数产生一定范围的随机数。
MsgBox(64, "随机数", _Random(1))
MsgBox(64, "随机数", _Random(10))   
MsgBox(64, "随机数", _Random(100))   
MsgBox(64, "随机数", _Random(1000))   
MsgBox(64, "随机数", _Random(10000))   
   
;;产生随机数函数
Func _Random($nNum1 = 0, $nNum2 = 0, $iFlag = 0)
    ; Invalid 1st parameter
    If Not IsNumber($nNum1) Then Return SetError(1, 0, 0)   
    Switch @NumParams
      Case 0
            Return Random()
      Case 1
            If $nNum1 < 0 Then Return -Random(-$nNum1)
            Return Random($nNum1)
      Case Else
            ; Invalid 2nd or 3rd parameter
            If Not IsNumber($nNum1) Or ($iFlag <> 0 And $iFlag <> 1) Then Return SetError(2, 0, 0)   
            If $nNum1 = $nNum2 Then Return $nNum1
            If $nNum2 > $nNum1 Then Return Random($nNum1, $nNum2, $iFlag)
            Return Random($nNum2, $nNum1, $iFlag)
    EndSwitch
EndFunc

kkkccc 发表于 2020-10-13 23:33:22

非常感谢

flybox 发表于 2020-10-13 23:49:22

奥利给

维航网络 发表于 2020-10-14 03:13:52

感谢{author}楼主

07505711098 发表于 2020-10-14 09:24:57

膜拜大神3秒钟
页: [1]
查看完整版本: AutoIt3实现随机数算法