Small Basic猜数字游戏中如何重置变量生成新回合随机数

问题核心原因 #

不存在需要专门“重置变量”的特殊命令，你遇到的第二回合沿用第一回合随机数的问题，基本是以下两个原因导致的：

• 多回合逻辑漏写了随机数生成子程序的调用：你写的Random子程序只有被主动调用时，才会执行z = Math.GetRandomNumber(hz)给目标值z赋新值。如果只在游戏第一次启动时调用过一次这个子程序，后续回合重置时没有再次调用，z就会一直保留第一次生成的数值。
• 第二回合开始前上限变量hz被意外修改：如果hz被错误赋值为0、或者被固定成了某一个常量，Math.GetRandomNumber的返回值也会不符合预期。

Small Basic的Math.GetRandomNumber本身不需要额外重置随机种子，只要传入的上限参数正确，每次调用都会返回独立的新随机值，不存在调用一次后就锁死返回值的机制。

正确实现逻辑 #

多回合模式下，每回合启动前必须主动调用随机数生成子程序，参考流程如下：

1. 初始化阶段获取玩家设置的上限值，赋值给hz
2. 进入回合主循环
3. 每回合开始时，首先调用Random()子程序生成新的目标值z
4. 执行本回合的猜数字判断逻辑，直到玩家猜对
5. 询问玩家是否开启下一回合，选择继续则回到步骤3，选择退出则结束游戏

参考代码片段：

' 初始化
TextWindow.Write("请输入猜数字上限：")
hz = TextWindow.ReadNumber()
roundCount = 1

' 主循环
While "True"
  TextWindow.WriteLine("")
  TextWindow.WriteLine("=== 第" + roundCount + "回合 ===")
  ' 每回合必须先调用子程序生成新随机数
  Random()
  
  ' 单回合猜数字逻辑
  userGuess = -1
  While userGuess <> z
    TextWindow.Write("请输入猜测值：")
    userGuess = TextWindow.ReadNumber()
    If userGuess > z Then
      TextWindow.WriteLine("猜大了")
    ElseIf userGuess < z Then
      TextWindow.WriteLine("猜小了")
    EndIf
  EndWhile
  TextWindow.WriteLine("猜对了！本回合目标值为" + z)
  
  TextWindow.Write("输入Y开始下一回合，其他输入退出：")
  nextRound = TextWindow.Read()
  If Text.ConvertToUpperCase(nextRound) <> "Y" Then
    Goto GameEnd
  EndIf
  roundCount = roundCount + 1
EndWhile

' 随机数生成子程序
Sub Random
  z = Math.GetRandomNumber(hz)
EndSub

GameEnd:
TextWindow.WriteLine("游戏退出")

内容的提问来源于stack exchange，提问作者Thomas Lindner