随机数生成器 —— VB源码解析
本代码解决VB中RND函数无法生成数值1的限制。通过编写自定义的随机数生成算法，确保生成的随机数覆盖了[0, 1]范围内的所有可能值。
```vb
' 定义一个全局变量来存储最近生成的随机数
dim randNum as Single
' 获取当前时间戳作为随机数的种子
dim seed as Integer = Int32.Now
' 生成随机数
do
randNum = (seed 0) / 100
seed = seed * 1103515245 + 12345
loop until randNum >= 1 ' 确保生成的随机数不小于1
' 输出结果
MsgBox "随机数为：" & randNum
do
' 释放资源
End Sub
```vb
' 定义一个全局变量来存储最近生成的随机数
dim randNum as Single
' 获取当前时间戳作为随机数的种子
dim seed as Integer = Int32.Now
' 生成随机数
do
randNum = (seed 0) / 100
seed = seed * 1103515245 + 12345
loop until randNum >= 1 ' 确保生成的随机数不小于1
' 输出结果
MsgBox "随机数为：" & randNum
do
' 释放资源
End Sub
文件大小：1.16KB
评论区