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

'**********************************************
'功能:返回给定数据范围内的随机整数
'参数: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