Imports System, Microsoft.VisualBasic

'Jeyron'

'12/2/21'

'RockPaperScissors Program'

Public Module Module1

    Public Sub Main()

        Const ROCK As Integer = 1                   'Declaring Variables'

        Const PAPER As Integer = 2

        Const SCISSOR As Integer = 3 

        Dim userThrow As Char  

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

        Dim result As String 

        Console.WriteLine(" Choose (R)ock (P)aper or (S)cissors:")              'Inputs' 

            userThrow = Console.ReadLine()                      

        If userThrow = "R" Then                                                 'Calculations'

            If computerThrow = ROCK Then 

                result = "Computer chooses Rock: It is a draw" 

            ElseIf computerThrow = PAPER Then 

                result = "Computer chooses Paper: You lose"

            ElseIf computerThrow = SCISSOR Then 

                result = "Computer chooses Scissors: You win"

            End If 

        Else If userThrow = "P"  

                If computerThrow = ROCK Then 

                    result = "Computer chooses Rock: You win"

                ElseIf computerThrow = PAPER Then 

                    result = "Computer chooses Paper: It is a draw"

                ElseIf computerThrow = SCISSOR Then 

                    result = "Computer chooses Scissors: You lose"

                End If 

            Else If userThrow = "S" 

                    If computerThrow = ROCK Then 

                        result = "Computer chooses Rock: You lose" 

                    ElseIf computerThrow = PAPER Then 

                        result = "Computer chooses Paper: You win"

                    ElseIf computerThrow = SCISSOR Then 

                        result = "Computer chooses Scissors; It is a draw"

                    Else result = "Invalid choice"

                    End If 

                End If      

                Console.WriteLine(result)

    End Sub

End Module