实现代码：
- 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
版权声明：文章图片资源来源于网络,如有侵权，请留言删除!!!
评论