Imports System, Microsoft.VisualBasic
Const ROCK As Integer = 1
Const PAPER As Integer = 2
Const SCISSORS As Integer = 3
Dim userThrow As String = ""
Dim computerThrow As Integer
Dim message As String = ""
Console.WriteLine("Choose (R)ock, (P)aper, or (S)cissors: ")
userThrow = Console.ReadLine()
computerThrow = Int(Rnd() * 3 + 1)
If userThrow = "r" Or userThrow = "R" Or userThrow = "rock" Or userThrow = "Rock" Then
If computerThrow = ROCK Then
message = "Computer Chose Rock: It's a draw!"
ElseIf computerThrow = PAPER Then
message = "Computer Chose Paper: You lose!"
ElseIf computerThrow = SCISSORS Then
message = "Computer Chose Scissors: You win!"
ElseIf userThrow = "P" Or userThrow = "p" Or userThrow = "paper" Or userThrow = "Paper" Then
If computerThrow = ROCK Then
message = "Computer Chose Rock: You win!"
ElseIf computerThrow = PAPER Then
message = "Computer Chose Paper: It's a draw!"
ElseIf computerThrow = SCISSORS Then
message = "Computer Chose Scissors: You lose!"
ElseIf userThrow = "S" Or userThrow = "s" Or userThrow = "Scissors" Or userThrow = "scissors" Then
If computerThrow = ROCK Then
message = "Computer Chose Rock: You lose!"
ElseIf computerThrow = PAPER Then
message = "Computer Chose Paper: You win!"
ElseIf computerThrow = SCISSORS Then
message = "Computer Chose Scissors: It's a draw!"
message = "Invalid choice."
Console.WriteLine(message)