Question

用VB编一个与电脑玩石头剪刀布的游戏

如题，越简单越好

Answer 1

窗体上画控件：单选框cOption(0)、cOption(1)、cOption(2)，按钮Command1，标签Label1。
加代码：
Dim SelectNumber As Integer

Private Sub Command1_Click()
Dim ComputerNumber As Integer
Randomize
ComputerNumber = Int(Rnd * 3)
Select Case ComputerNumber
Case 0: Label1.Caption = "计算机出剪刀"
Case 1: Label1.Caption = "计算机出石头"
Case 2: Label1.Caption = "计算机出布"
End Select
If SelectNumber = ComputerNumber Then
Label1.Caption = Label1.Caption & vbCrLf & "平局"
Else
Select Case SelectNumber
Case 0
If ComputerNumber = 1 Then
Label1.Caption = Label1.Caption & vbCrLf & "计算机赢"
Else
Label1.Caption = Label1.Caption & vbCrLf & "你赢"
End If
Case 1
If ComputerNumber = 2 Then
Label1.Caption = Label1.Caption & vbCrLf & "计算机赢"
Else
Label1.Caption = Label1.Caption & vbCrLf & "你赢"
End If
Case 2
If ComputerNumber = 0 Then
Label1.Caption = Label1.Caption & vbCrLf & "计算机赢"
Else
Label1.Caption = Label1.Caption & vbCrLf & "你赢"
End If
End Select
End If
End Sub

Private Sub Form_Load()
cOption(0).Caption = "剪刀"
cOption(1).Caption = "石头"
cOption(2).Caption = "布"
Command1.Caption = "开始"
Label1.Caption = ""
End Sub

Private Sub cOption_Click(Index As Integer)
SelectNumber = Index
End Sub