VB 源码 产生任意数之间随机数，支持负数
发布时间：2020-12-16 22:48:47 所属栏目：大数据 来源：网络整理
导读：'┏〓〓〓〓〓〓〓〓〓 GetRndBeTween3,start 〓〓〓〓〓〓〓〓〓┓ '［简介］： '产生任意数之间随机数（支持负数） Function GetRndBeTween3(Number1 As Long,Number2 As Long) As Double 'VB源码，帮你写函数，帮你写代码，帮你写模块，帮你设计软件 '--需
|
'┏〓〓〓〓〓〓〓〓〓 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 〓〓〓〓〓〓〓〓〓┛ （编辑：李大同） 【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容! |