7,763
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
kidhawk 2005-10-09
- 打赏
- 举报
多谢我已经解决
tianhuo_soft 2005-10-06
- 打赏
- 举报
（ 上限-下限+1）*RND+下限
下限是负的 就可以正负数了
faysky2 2005-10-06
- 打赏
- 举报
楼上正解
laviewpbt 2005-10-06
- 打赏
- 举报
Private Function GenRnd(lowerbound As Double, upperbound As Double) As Double
Randomize Timer
GenRnd = ((upperbound - lowerbound + 1) * Rnd + lowerbound)
End Function
Private Sub Timer1_Timer()
Print GenRnd(-10, 10)
End Sub
Randomize Timer
GenRnd = ((upperbound - lowerbound + 1) * Rnd + lowerbound)
End Function
Private Sub Timer1_Timer()
Print GenRnd(-10, 10)
End Sub
