7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
kmzs 2004-12-22
- 打赏
- 举报
Dim A as Long
Randomize Timer
While A < 100
A = Int(Rnd * 1000)
Wend
尽量用循环而不是递归
Randomize Timer
While A < 100
A = Int(Rnd * 1000)
Wend
尽量用循环而不是递归
yiliao 2004-12-22
- 打赏
- 举报
同意 AprilSong(X)
laviewpbt 2004-12-22
- 打赏
- 举报
楼上的不错，建议用楼上的方法。
AprilSong 2004-12-22
- 打赏
- 举报
0<=rnd<1
Round是四舍五入
这样rnd=0.9999的时候
Round(Rnd * 1000)=Round(999.9)=1000
标准写法是：
为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
而且3位的随机数应该是100～999
对应公式就是：Int((999 - 100 + 1) * Rnd + 100)
所以这个：
Int(900 * Rnd + 100)
才是3位的随机数
Round是四舍五入
这样rnd=0.9999的时候
Round(Rnd * 1000)=Round(999.9)=1000
标准写法是：
为了生成某个范围内的随机整数，可使用以下公式：
Int((upperbound - lowerbound + 1) * Rnd + lowerbound)
而且3位的随机数应该是100～999
对应公式就是：Int((999 - 100 + 1) * Rnd + 100)
所以这个：
Int(900 * Rnd + 100)
才是3位的随机数
creazyfish 2004-12-22
- 打赏
- 举报
楼上的方法不错嘿嘿
laviewpbt 2004-12-22
- 打赏
- 举报
Private Sub Command1_Click()
Randomize Timer
Text1.Text = Round(Rnd * 1000)
If Val(Text1.Text) < 100 Then '保证是三位
Call Command1_Click
End If
End Sub
Randomize Timer
Text1.Text = Round(Rnd * 1000)
If Val(Text1.Text) < 100 Then '保证是三位
Call Command1_Click
End If
End Sub
