Imports System , Microsoft.VisualBasic
Dim computerThrow As Integer = Int(Rnd() * 3 + 1)
Const ROCK As Integer = 1
Const PAPER As Integer = 2
Const SCISSORS As Integer = 3
Console.WriteLine("Choose (R)ock, (P)aper, or (S)cissors: ")
userThrow = Console.Readline
If userThrow = "R" or UserThrow = "r" Then
If computerThrow = ROCK Then
ElseIf computerThrow = PAPER Then
message = "Computer wins!"
ElseIf computerThrow = SCISSORS Then
ElseIf userThrow = "P" or userThrow = "p" Then
If ComputerThrow = ROCK Then
message = "Computer wins!"
ElseIf computerThrow = PAPER Then
ElseIf computerThrow = SCISSORS Then
ElseIf userThrow = "S" or userThrow = "s" Then
If computerThrow = ROCK Then
ElseIf computerThrow = PAPER Then
ElseIf computerThrow = SCISSORS Then
Console.WriteLine(message)