大家看看这段代码,为什么我用随机函数每次都产生一样的数70

Question

这是怎么回事
Private Sub Form_Click()
Dim x, i, guess As Integer
i = 0
x = Int(Rnd(10) * 100)guess = -1
Do While guess <> x
  guess = InputBox("请输入你猜的数：", "猜数字")
  If guess > x Then
  Print "太大了！"
  Else
   If guess < x Then Print "太小了！"
  End If
  i = i + 1
Loop
  If i < 3 Then
    Print "你很聪明，只猜了：", i, "次"
  
  Else
   Print "马马虎虎，猜了：", i, "次"
  End If
        
End Sub

Answer 1

Private Sub Form_Click()
Randomize  '初始化随即树
Dim x, i, guess As Integer
i = 0
x = Int(Rnd(10) * 100)guess = -1
Do While guess <> x
  guess = InputBox("请输入你猜的数：", "猜数字")
  If guess > x Then
  Print "太大了！"
  Else
   If guess < x Then Print "太小了！"
  End If
  i = i + 1
Loop
  If i < 3 Then
    Print "你很聪明，只猜了：", i, "次"
  
  Else
   Print "马马虎虎，猜了：", i, "次"
  End If
        
End Sub

Answer 2

i = 0
Randomize
x = Int(Rnd(10) * 100)需要Randomize随机

Answer 3

sorry前面的汉字打错了，在引用Rnd前要用  Randomize 初始化随即数