じゃんけんプログラムの解答例

Sub RockPaperScissorsJapanese()
    Dim userChoice As String
    Dim computerChoice As String
    Dim result As String
    
    ' ユーザーの選択を取得
    userChoice = InputBox("グー、チョキ、パーから選んでください:")
    
    ' コンピューターの選択をランダムに決定
    Randomize
    Select Case Int((3 * Rnd) + 1)
        Case 1
            computerChoice = "グー"
        Case 2
            computerChoice = "チョキ"
        Case 3
            computerChoice = "パー"
    End Select
    
    ' 勝者の決定
    If userChoice = computerChoice Then
        result = "あいこです！"
    ElseIf (userChoice = "グー" And computerChoice = "チョキ") Or _
           (userChoice = "チョキ" And computerChoice = "パー") Or _
           (userChoice = "パー" And computerChoice = "グー") Then
        result = "あなたの勝ちです！"
    Else
        result = "コンピューターの勝ちです！"
    End If
    
    ' 結果の表示
    MsgBox "あなたの選択: " & userChoice & vbCrLf & _
           "コンピューターの選択: " & computerChoice & vbCrLf & _
           result
End Sub