Rnd随机数操作

研究问题：

1. 怎样随机取到特定区间的随机数
2. Rnd与Randomize区别
3. Rnd与Round区别

---

要点：

• 取特定区间的数[a,b)表示为Int（(b * Rnd) + a）
• rnd本指取[0,1)之间的数
• Randomize 语句初始化随机数生成器。
  语法
  Randomize [number]
  可选的 number 参数是 Variant 或任何有效的数值表达式。
  说明
  Randomize 用 number 将 Rnd 函数的随机数生成器初始化，该随机数生成器给 number 一个新的种子值。如果省略 number，则用系统计时器返回的值作为新的种子值。
  如果没有使用 Randomize，则（无参数的）Rnd 函数使用第一次调用 Rnd 函数的种子值）
• 四舍五入函数Round(x1[,x2])
  四舍五入保留小数x2位，省略表示为取整

---

代码区

1. 猜数游戏

Private Sub Command1_Click()

Randomize
x = Int(Rnd(1) * 99 + 1)

For i = 1 To 10
A = Val(InputBox("请输入第" & i & "个数:", "输入随机数"))

If A > x Then
MsgBox "太大了", , "提示"

ElseIf A = x Then
MsgBox "猜中了,猜了" & i & "次", , "提示"
End

Else
MsgBox "太小了", , "提示"

End If
Next i
MsgBox "10次均未猜中", , "提示"

End Sub

Private Sub Form_Load()

End Sub

如果不使用Randomize，则随机数第一次写入内存后就不会更改，下次运行
值不变。Randomize重在可以初始化内存中的随机数值