VB 任意随机数(N-M)的通用函数（单取、多取存入数组、排序等功能） 内附随机数介绍

如果对于随机数了解没有什么问题，请跳过思路，直接看函数，如果对有函数有疑问或是改进意思，欢迎来信jyh_jack@163.com

' 思路

Randomize   ' 初始化随机数生成器
Print   Int ( Rnd ()  *   2 )   ' 生成随机数范围是0-1

' 如果要生成1-10之间的随机数：
' 可以看作随机数的的起始数是：1，范围是1+(0~9)
' Int(Rnd() * 10) 生成0-9之间的数，再加上起始数1，所以
Print   Int ( Rnd ()  *   10 )  + 1



' 如果要生成10－30之间的随机数：
' 可以看作随机数的起始数是：10，范围是10+(0~20)
' int(Rnd() * 21)生成0-20之间的随机数，再加上起始数10，所以
Print   Int ( Rnd ()  *   20 + 1 )  + 10



' 如果要生成N－M之间的随机数
' 可以看作随机数的起始数是：N，范围是10+(0~M-N)
' int(Rnd() * (M-N+1))生成0-(M-N)之间的随机数，再加上起始数N，所以
Print   Int ( Rnd ()  *  (M - N + 1 ))  + N

函数正文：

' --------------------------------------------------------------------------------------
' 任意随机数(N-M)的函数（单取、多取存入数组、排序等功能）
' ----------------------------------------------2008-4-11
' -----------------------------------by 鞠勇鸿
' 对于本函数有改进意见，如果您方便请发邮件致：jyh_jack@163.com
' --------------------------------------------------------------------------------------
Function  getRnd(N, M  As   Integer )  As   Integer   ' 取N-M之间的随机数，M>=N
  getRnd  =   Int ( Rnd ()  *  (M  -  N  +   1 ))  +  N
End Function

Function  getArrRndNR(Counter  As   Integer , N, M  As   Integer )  As   Integer ()  ' 取Counter个N-M之间的随机数（不重复）
   If  (Counter  >  (M  -  N  +   1 ))  Then
     MsgBox   " 随机数设置不正确 "
     Exit Function
   End   If
   ReDim  arr( 1   To  Counter)  As   Integer
  i  =   0
   Do   While  i  <  Counter
    arr(i  +   1 )  =  getRnd(N, M)
    found  =   False
     For  X  =   1   To  i
       If  arr(X)  =  arr(i  +   1 )  Then
        found  =   True
         Exit   For
       End   If
     Next
     If   Not  found  Then
      i  =  i  +   1
     End   If
   Loop
  
  getArrRndNR  =  arr
End Function

Function  getArrRnd(Counter  As   Integer , N, M  As   Integer )  As   Integer ()  ' 取Counter个N-M之间的随机数（可重复）
   If  (Counter  >  (M  -  N  +   1 ))  Then
     MsgBox   " 随机数设置不正确 "
     Exit Function
   End   If
   ReDim  arr( 1   To  Counter)  As   Integer
   For  i  =   1   To  Counter
    arr(i)  =  getRnd(N, M)
   Next
  
  getArrRnd  =  arr
End Function

Sub  OrderNumberD(arr)  ' 从大到小排序
   For  i  =   LBound (arr)  To   UBound (arr)
     For  j  =   LBound (arr)  To   UBound (arr)
       If  arr(i)  >  arr(j)  Then
        X  =  arr(i)
        arr(i)  =  arr(j)
        arr(j)  =  X
       End   If
     Next
   Next
End Sub

Sub  OrderNumberA(arr)  ' 从小到大排序
   For  i  =   LBound (arr)  To   UBound (arr)
     For  j  =   LBound (arr)  To   UBound (arr)
       If  arr(i)  <  arr(j)  Then
        X  =  arr(i)
        arr(i)  =  arr(j)
        arr(j)  =  X
       End   If
     Next
   Next
End Sub

' --------------------------------------------------------------------------------------
' ---------------------------------------函数结束---------------------------------------
' --------------------------------------------------------------------------------------

 

测试：

' 测试
Private   Sub  Command1_Click()
Randomize   ' 一定要初始化随机数，否则每次打开程序取出的数都一样的。
MsgBox  getRnd( 1 ,  12 ), vbOKOnly,  " 1-12之间任取一数 "

arr  =  getArrRndNR( 10 ,  11 ,  33 )  ' 取10个11-33之间不重复的随机数，存入数组arr，取重复的可以用getArrRnd函数
OrderNumberA arr  ' 升序排列数组arr ，降序排列为OrderNumberD
For  i  =   1   To   UBound (arr)  ' 显示
Print  arr(i)
Next
End Sub