VBA做的简易猜拳

Private Sub CommandButton1_Click()
Label4.Caption = "石"

Call run(1)
End Sub

Private Sub CommandButton2_Click()
Label4.Caption = "剪み"

Call run(2)
End Sub

Private Sub CommandButton3_Click()
Label4.Caption = "布"

Call run(3)
End Sub




Private Sub run(obj)
'計算ロジック
Dim temp As Integer

temp = Rnd(3) * 3 + 1


If temp = 1 Then
Label5.Caption = "石"

If obj = 1 Then
Label3.Caption = "平局"
ElseIf obj = 3 Then
Label3.Caption = "人勝利"
Else
Label3.Caption = "電脳勝利"
End If


ElseIf temp = 2 Then
Label5.Caption = "剪み"

If obj = 2 Then
Label3.Caption = "平局"
ElseIf obj = 1 Then
Label3.Caption = "人勝利"
Else
Label3.Caption = "電脳勝利"
End If

Else
Label5.Caption = "布"

If obj = 3 Then
Label3.Caption = "平局"
ElseIf obj = 2 Then
Label3.Caption = "人勝利"
Else
Label3.Caption = "電脳勝利"
End If

End If



End Sub