vb 随机数

1 Private Sub Form_Click()
2     Debug.Print Rndnum(-10001000)
3 End Sub
4 
5 Public Function Rndnum(min As Long, max As LongAs Long
6    Randomize
7    Rndnum = Int((max - min + 1* Rnd + min)
8 End Function
9 

 

posted @ 2009-12-29 18:33  clown  阅读(598)  评论(0编辑  收藏  举报