Imports System, Microsoft.VisualBasic

'Sanjit Kakarla

'12/3/21

'RockPaperScissors Part 1

Public Module Module1

​

    Public Sub Main()

        Const ROCK As Integer = 1 'Step 1: Declare Variables

        Const PAPER As Integer = 2

        Const SCISSORS As Integer = 3

        Dim userThrow As String = ""

        Dim computerThrow As Integer

        Dim message As String = ""

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

        userThrow = Console.ReadLine()

        Randomize() 'Step 3: Calculations

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

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

            If computerThrow = ROCK Then

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

            ElseIf computerThrow = PAPER Then

                message = "Computer Chose Paper: You lose!"

            ElseIf computerThrow = SCISSORS Then

                message = "Computer Chose Scissors: You win!"

            End If

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

            If computerThrow = ROCK Then

                message = "Computer Chose Rock: You win!"

            ElseIf computerThrow = PAPER Then

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

            ElseIf computerThrow = SCISSORS Then

                message = "Computer Chose Scissors: You lose!"

            End If

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

            If computerThrow = ROCK Then

                message = "Computer Chose Rock: You lose!"

            ElseIf computerThrow = PAPER Then

                message = "Computer Chose Paper: You win!"

            ElseIf computerThrow = SCISSORS Then

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

            End If

        Else

            message = "Invalid choice."

        End If

​

        Console.WriteLine(message) 'Step 4: Output

    End Sub

End Module

​