Imports System, Microsoft.VisualBasic

Public Module Module1

    Public Sub Main()

        Randomize()

        Dim computerThrow As Integer

        Dim userThrow As Char

        Dim message As String

        Const ROCK As Integer = 1

        Const PAPER As Integer  = 2

        Const SCISSORS As Integer = 3

        Console.Write("Choose (R)ock, (P)aper, or (S)cissors: ")

        userThrow = Console.ReadLine()

        computerThrow = Int(Rnd() * 3 + 1)

        If userThrow = "R" Or userThrow = "r" Then

            If computerThrow = ROCK Then

                message = "Computer chose Rock: It's a draw!"

            ElseIf computerThrow = PAPER Then

                message = "Computer chose Paper: You lose!"

            Else

                message = "Computer chose Scissors: You win!"

            End If

        ElseIf userThrow = "P" Or userThrow = "p" Then

            If computerThrow = ROCK Then

                message = "Computer chose Rock: You win!"

            ElseIf computerThrow = PAPER Then

                message = "Computer chose Paper: It's a draw!"

            Else

                message = "Computer chose Scissors: You lose!"

            End If

        ElseIf userThrow = "S" Or userThrow = "s" Then

            If computerThrow = ROCK Then

                message = "Computer chose Rock: You lose!"

            ElseIf computerThrow = PAPER Then

                message = "Computer chose Paper: You win!"

            Else

                message = "Computer chose Scissors: It's a draw!"

            End If

        Else

            Console.WriteLine("Invalid choice")

        End If

        Console.WriteLine(message)

    End Sub

End Module