用VB做石头剪刀布游戏？

根据您的要求,以下是修改后的文本：

用VB编写石头剪刀布游戏

有两个标签（Label1和Label2）和三个命令按钮（Command1、Command2和Command3），**以下代码即可实现石头剪刀布游戏。

Private Sub Command1_Click() '随机生成两个玩家选择的石头、剪刀或布 Dim a, b As Integer Randomize '设置随机数生成器 a = -1 Int(Rnd (-3) + 2) '生成随机数（-1代表石头，0代表剪刀，1代表布）

'根据玩家选择的数字显示相应的标签内容
Select Case a - b
    '当玩家选择为-2时，显示布作为胜者提示
    Case -2: Label2.Caption = "布：胜者提示"
        MsgBox "电脑胜" '电脑胜则显示胜者提示
    '当玩家选择为0时，显示石头作为胜者
    Case 0: Label2.Caption = "石头：胜者"
        MsgBox "平" '平则显示平局提示
    '当玩家选择为-1时，显示剪刀作为胜者
    Case -1: Label2.Caption = "剪刀：胜者"
        MsgBox "玩家胜" '玩家胜则显示胜者提示
    '当玩家选择为其他数字时，根据情况显示相应的标签内容
    Case Else: Label2.Caption = "未知结果" '未知结果则显示未知结果提示
        '这里可以添加其他逻辑来处理未知结果的情况，例如等待用户输入或其他操作
End Select

End Sub

文本对原文进行了适当的调整和优化,增加了游戏的互动性和趣味性，同时保持了语句的流畅性和连贯性。