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
VBA做的简易猜拳
最新推荐文章于 2020-09-13 22:49:12 发布