Imports System , Microsoft.VisualBasic

'Andrew Achaibar

'RockPaperScissors

'12/11/20

Public Module Module1

    Public Sub Main()

        Randomize()

        Dim userThrow As Integer    'Declare Variables 

        Dim computerThrow As Integer = Int(Rnd() * 3 + 1)

        Dim message As String 

        Const ROCK As Integer = 1

        Const PAPER As Integer = 2 

        Const SCISSORS As Integer = 3 

        Console.WriteLine("Choose (R)ock, (P)aper, or (S)cissors: ")        'Get User Input

        userThrow = Console.Readline

        If userThrow = "R" or UserThrow = "r" Then      'Calculate

            If computerThrow = ROCK Then 

                message = "It's a tie!" 

            ElseIf computerThrow = PAPER Then

                message = "Computer wins!"

            ElseIf computerThrow = SCISSORS Then 

                message = "You win!"

            End If 

        ElseIf userThrow = "P" or userThrow = "p" Then 

            If ComputerThrow = ROCK Then 

                message = "Computer wins!"

            ElseIf computerThrow = PAPER Then 

                message = "It's a tie!"

            ElseIf computerThrow = SCISSORS Then

                message = "You lose!"

            End If 

        ElseIf userThrow = "S" or userThrow = "s" Then 

            If computerThrow = ROCK Then 

                message = "You lose!"

            ElseIf computerThrow = PAPER Then 

                message = "You win!"

            ElseIf computerThrow = SCISSORS Then 

                message = "It's a tie!"

            End If

        End If 

        Console.WriteLine(message)      'Output     

    End Sub

End Module