Imports System, Microsoft.VisualBasic

​

'12/16/20

'Justin Siguenza

'RockPaperScissor Program

Public Module Module1

    Public Sub Main()

        Randomize()

        Const ROCK As Integer = 1 

        Const PAPER As Integer = 2

        Const SCISSORS As Integer = 3

        Dim userThrow As Char

        Dim message As String

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

        If userthrow = "R" or userthrow = "r" then 

            If computerThrow = ROCK then

                message = "Computer threw rock, it's a tie!"

            ElseIf computerThrow = PAPER then

                message = "Computer threw paper, computer wins!"

            ElseIf computerThrow = SCISSORS then

                message = "Computer threw scissors, you win!"

            End If

        ElseIf userThrow = "P" or userThrow = "p" then

            If computerThrow = ROCK then

                message = "Computer threw rock, you win!"

            ElseIf computerThrow = PAPER then

                message = "Computer threw paper, it's a tie!"

            ElseIf computerThrow = SCISSORS then

                message = "Computer threw scissors, computer wins!"

            End If 

        ElseIf userThrow = "S" or userThrow = "s" then 

            If computerThrow = ROCK then

                message = "Computer threw rock, computer wins!"

            ElseIf computerThrow = PAPER then

                message = "Computer threw paper, you win!"

            ElseIf computerThrow = SCISSORS then

                message = "Computer threw scissors, it's a tie!"

            End If 

            Console.WriteLine(message)

    End Sub

End Module