Imports System, Microsoft.VisualBasic

​

'Hollister

'12/3/21

'Rock,Paper,Scissors Program

​

Public Module Module1

    Public Sub Main()

        Randomize()

        Dim playerOne As Char                                                      'declare variables

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

        Dim message As String

        CONST Rock As Integer = 1

        CONST Paper As Integer = 2

        CONST Scissors As Integer = 3

        Console.WriteLine("Please enter your choice using a (R),(P),Or (S)")          'input

        playerOne = Console.ReadLine()

        If playerOne = "R" OR playerOne = "r"

            If playerTwo = Scissors Then

                message = "player two chose scissors so Player one wins"                 'calculations

            ElseIf playerTwo = Rock Then

                message = "Player two chose rock, IT'S A TIE"

            ElseIf playerTwo = paper Then

                message = "Player two chose paper, Player two WON"

            End If 

        ElseIf playerOne = "P" OR playerOne = "p"

            If playerTwo = Rock Then

                message = "Player two chose rock you win!"

            ElseIf playerTwo = Scissors Then

                message = "Player two chose scissors, player two wins!"

            ElseIf playerTwo = Paper Then

                message = "Player two chose paper, It's a draw!"

            End If

        ElseIf playerOne = "S" OR playerOne = "s"

            If playerTwo = Rock Then

                message = "player two chose rock, Player two Wins!"

            ElseIf playerTwo = Paper Then

                message = "Player two chose paper. You Win!"

            ElseIf playerTwo  = Scissors Then

                message = "Player two chose Scissors, It's A TIE"

                End If

            End If

        Console.WriteLine(message)                                  'outout

    End Sub

End Module