Imports System, Microsoft.VisualBasic

'Tanush Mendhirata

'12-3-21

'Rock, Paper, Scissors Program

Public Module Module1

    Public Sub Main()

        'Step One: Declare Variables

        Dim userThrow As Char

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

        Dim result As String

        Const ROCK As Integer = 1

        Const PAPER As Integer = 2

        Const SCISSORS As Integer = 3

        'Step Two: User Input

        Console.WriteLine("Please choose between (R)ock, (P)aper, or (S)cissors:")

        userThrow = Console.ReadLine()

        'Step Three: Calculations

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

            If computerThrow = ROCK Then 

                result = "The computer chose rock: Draw!" 

            Else If computerThrow = PAPER Then

                result = "The computer chose paper: You lose!"

            Else If computerThrow = SCISSORS Then

                result = "The computer chose scissors: You win!"

            End If 

        Else If userThrow = "P" Or userThrow = "p" Then

            If computerThrow = PAPER Then

                result = "The computer chose paper: Draw!"

            Else If computerThrow = ROCK Then

                result = "The computer chose rock: You win!"

            Else If computerThrow = SCISSORS Then               

                result = "The computer chose scissors: You lose!"           

            End If

        Else If userThrow = "S" Or userThrow = "s" Then

            If computerThrow = SCISSORS Then

                result = "The computer chose scissors: Draw!"

            Else If computerThrow = ROCK Then

                result = "The computer chose rock: You lose!"

            Else If computerThrow = PAPER Then

                result = "The computer chose paper: You win!"

            End If 

        End If 

        'Step Four: Output

        Console.WriteLine("Computer chooses: " & result)

    End Sub

End Module