'┏〓〓〓〓〓〓〓〓〓 GetRndBeTween3,start 〓〓〓〓〓〓〓〓〓┓ '［简介］： '产生任意数之间随机数（支持负数） Function GetRndBeTween3(Number1 As Long,Number2 As Long) As Double 'VB源码，帮你写函数，帮你写代码，帮你写模块，帮你设计软件 '--需要什么函数或功能，可以联系我。 '版权所有，请保留作者信息.QQ：1085992075 '如需商业用途请联系作者 Dim V1 As Long,V2 As Long,V3 As Long Randomize Timer + Rnd * 10 '重设随机数因子 V1 = Number1 V2 = Number2 If V1 < 0 Then V3 = -V1 V1 = 0 V2 = V2 + V3 End If GetRndBeTween3 = V1 + CInt(((V2 - V1) * Rnd)) - V3 End Function '┗〓〓〓〓〓〓〓〓〓 GetRndBeTween3,end 〓〓〓〓〓〓〓〓〓┛ 原文链接：https://www.f2er.com/vb/260908.html