VBScript 猜数字游戏代码

以下是一个简单的 VBScript 程序，可以实现猜数字游戏。

' 猜数字游戏
Randomize
num = Int((100 - 1 + 1) * Rnd + 1)
guess = 0
tries = 0

Do Until guess = num
  guess = InputBox('请输入一个 1 到 100 之间的数字：')
  If guess <> "" Then
    If Not IsNumeric(guess) Then
      MsgBox "请输入一个数字。"
    ElseIf guess < 1 Or guess > 100 Then
      MsgBox "请输入一个 1 到 100 之间的数字。"
    Else
      tries = tries + 1
      If guess < num Then
        MsgBox "你猜的数字太小了。"
      ElseIf guess > num Then
        MsgBox "你猜的数字太大了。"
      Else
        MsgBox "恭喜你，猜对了！你猜了 " & tries & " 次。"
      End If
    End If
  Else
    Exit Do
  End If
Loop

该程序使用 Randomize 函数生成一个 1 到 100 之间的随机数。然后，它提示用户输入一个数字，并根据用户的输入给出相应的提示，直到用户猜对为止。

该程序还记录了用户猜的次数，并在用户猜对后给出恭喜的消息和猜的次数。

希望这个程序能够帮助你学习 VBScript 编程！