VBScript 随机数猜谜游戏代码 - 简单有趣

{"title":"能给我一个用来好玩VBS程序代码吗？","description":"当然可以！以下是一个简单的VBS程序代码，用于创建一个随机数猜测游戏：\n\nvbscript\nOption Explicit\nRandomize\n\nDim targetNumber, guess\n\n' 生成目标随机数\ntargetNumber = Int((100 * Rnd) + 1)\n\n' 游戏循环\nDo While True\n ' 提示用户输入猜测数\n guess = InputBox("请输入一个1到100之间的整数：")\n\n ' 检查用户输入是否有效\n If Not IsNumeric(guess) Then\n MsgBox "请输入一个有效的整数！"\n Continue Do\n End If\n\n ' 将用户输入转换为整数\n guess = CInt(guess)\n\n ' 检查用户猜测\n If guess < 1 Or guess > 100 Then\n MsgBox "请输入一个1到100之间的整数！"\n ElseIf guess < targetNumber Then\n MsgBox "太小了！再试一次。"\n ElseIf guess > targetNumber Then\n MsgBox "太大了！再试一次。"\n Else\n MsgBox "恭喜你猜对了！"\n Exit Do\n End If\nLoop\n\n\n这个程序会生成一个1到100之间的随机数作为目标数，然后要求用户输入一个猜测数，并根据用户的猜测给出相应的提示，直到用户猜对为止。