Vb生成一定范围内的随机数（含小数部分）

下面这个函数，可以生成一定范围内的随机数，可以指定小数位数。

比如 RndBetween (10, 99, 2) 返回 [10.00~99.00] 范围内的随机数。

Function RndBetween(ByVal Lowbound As Long, ByVal Upbound As Long, Optional ByVal Dcml As Integer = 0) As Double

  '参数分别是：下限，上限，小数位数（默认值是0，没有小数部分）

  '参数过大可能发生溢出错误

  '生成指定范围内（含上下边界）的整数： _

    Int((upperbound - lowerbound + 1) * Rnd + lowerbound)

  '多次调用本函数时，允许生成相同的数，但不会生成可重复产生的序列

  '最近一次修改：2016-4-27

  

  Static I As Long

  I = I + 1

  Dim Temp As Long

  If Upbound < Lowbound Then

    Temp = Upbound

    Upbound = Lowbound

    Lowbound = Temp

  End If

  If Dcml < 0 Then Dcml = 0

  If Dcml > 255 Then Dcml = 255

  '实际上只生成十几位有效数字，除非改用字符连接等方法

  

  Randomize (Timer + I)

'  If Dcml = 0 Then

'    RndBetween = Int((Upbound - Lowbound + 1) * Rnd + Lowbound)

'  Else

'    RndBetween = Int((Upbound * 10 ^ Dcml - Lowbound * 10 ^ Dcml + 1) * Rnd + Lowbound * 10 ^ Dcml) / 10 ^ Dcml

'  End If

  

  '强制转换类型，避免在上下限相差过大时可能发生溢出错误

  If Dcml = 0 Then

    RndBetween = Int((CDbl(Upbound) - CDbl(Lowbound) + 1) * Rnd + CDbl(Lowbound))

  Else

    RndBetween = Int((CDbl(Upbound) * 10 ^ Dcml - CDbl(Lowbound) * 10 ^ Dcml + 1) * Rnd + CDbl(Lowbound) * 10 ^ Dcml) / 10 ^ Dcml

  End If

End Function