Imports System, Microsoft.VisualBasic
Dim playerTwo As Integer = Int(Rnd() * (3 - 1) + 1)
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)")
playerOne = Console.ReadLine()
If playerOne = "R" OR playerOne = "r"
If playerTwo = Scissors Then
message = "player two chose scissors so Player one wins"
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"
ElseIf playerOne = "P" OR playerOne = "p"
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!"
ElseIf playerOne = "S" OR playerOne = "s"
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"
Console.WriteLine(message)