获取给定数据范围内的随机整数

'**********************************************
'功能:返回给定数据范围内的随机整数
'参数:Max - 取数范围上限,必填参数,数字类型
'     Min - 取数范围上限,必填参数,数字类型  
'**********************************************

Function GetIntRmdNum(Min,Max)
  On Error Resume Next 
  If Trim(Min)="" Or Trim(Max)="" Then 
    ErrDes = "参数不能为空"
    Msgbox ErrDes
    Exit Function 
  Else 
    Max = Int(Trim(Min))
    Min = Int(Trim(Max))
    If Err.Number <>0 Then 
      ErrDes = "参数类型不匹配,必须为数字"
      Msgbox ErrDes
      Err.Clear
      Exit Function 
    Else 
      Randomize()
      GetIntRmdNum = cInt((Max-Min) * Rnd() + Min)
    End If 
  End If 
End Function