使用vbs写一个石头剪刀布

在VBS（Visual Basic Scripting Edition）中创建一个简单的石头、剪刀、布游戏可以分为以下几个步骤：

Option Explicit ' 声明变量必须明确

Sub PlayRockPaperScissors()
    Dim userChoice As String
    Dim computerChoice As Integer
    
    ' 用户输入选择
    userChoice = InputBox("请输入你的选择(石头、剪刀、布):", "游戏")
    
    ' 计算机随机选择
    computerChoice = Int((3 - Rnd()) + 1) ' 生成0到2之间的整数，对应石头、剪刀、布
    
    Select Case userChoice
        Case "石头"
            If computerChoice = 1 Then ' 石头对剪刀
                MsgBox "电脑选择了剪刀，你赢了!"
            ElseIf computerChoice = 2 Then ' 石头对布
                MsgBox "电脑选择了布，你输了!"
            Else ' 石头对石头
                MsgBox "平局!"
            End If
            
        Case "剪刀"
            If computerChoice = 2 Then ' 剪刀对布
                MsgBox "电脑选择了布，你赢了!"
            ElseIf computerChoice = 1 Then ' 剪刀对石头
                MsgBox "电脑选择了石头，你输了!"
            Else ' 剪刀对剪刀
                MsgBox "平局!"
            End If
            
        Case "布"
            If computerChoice = 1 Then ' 布对石头
                MsgBox "电脑选择了石头，你输了!"
            ElseIf computerChoice = 2 Then ' 布对剪刀
                MsgBox "电脑选择了剪刀，你赢了!"
            Else ' 布对布
                MsgBox "平局!"
            End If
            
        Case Else ' 输入错误
            MsgBox "无效的选择，试试看吧!"
            Exit Sub
    End Select
End Sub

Call PlayRockPaperScissors ' 调用函数开始游戏

运行这个脚本，用户可以在弹出框中输入他们的选择，然后程序会显示结果。