vbs游戏代码

以下是一个简单的 VBS 游戏代码示例，可以让用户在控制台中猜一个随机生成的数字：

Option Explicit

Randomize ' 初始化随机数生成器

Dim secretNumber, guess

secretNumber = Int((100 * Rnd) + 1) ' 生成一个 1 到 100 之间的随机数

Do
    guess = InputBox("请猜一个 1 到 100 之间的数字：") ' 弹出输入框，等待用户输入猜测值

    If Not IsNumeric(guess) Then ' 检查用户输入是否为数字
        MsgBox "请输入一个数字！"
    ElseIf guess < 1 Or guess > 100 Then ' 检查用户输入是否在有效范围内
        MsgBox "请输入一个 1 到 100 之间的数字！"
    ElseIf guess < secretNumber Then ' 判断用户猜测值是否小于秘密数字
        MsgBox "太小了！"
    ElseIf guess > secretNumber Then ' 判断用户猜测值是否大于秘密数字
        MsgBox "太大了！"
    Else ' 猜测成功，退出循环
        MsgBox "恭喜你，猜对了！"
        Exit Do
    End If
Loop

该代码会生成一个随机数作为秘密数字，并在控制台中循环要求用户猜测该数字，直到猜对为止。用户每次猜测后，程序会根据猜测值与秘密数字的大小关系给出提示，直到猜测正确为止。