Imports System , Microsoft.VisualBasic
Dim computerThrow As Integer
Console.WriteLine("Please Choose (R)OCK, (P)APER, (S)CISSORS: ")
userThrow = Console.ReadLine()
computerThrow = Int( RND() * (3 - 1 + 1) + 1)
If computerThrow = ROCK Then
message = "Computer threw ROCK, It's a tie."
ElseIf computerThrow = PAPER Then
message = "Computer threw PAPER, you lose!"
ElseIf computerThrow = SCISSORS Then
message = "Computer threw SCISSORS, you win!"
ElseIf userThrow = "P" Then
If computerThrow = ROCK Then
message = "Computer threw ROCK, you win!"
ElseIf computerThrow = PAPER
message = "Computer threw PAPER. It's a tie."
ElseIf computerThrow = SCISSORS
message = "Computer threw SCISSORS, you lose!"
ElseIf userThrow = "S" Then
message = "Computer threw ROCK, you lose!"
ElseIf computerThrow = PAPER
message = "Computer threw PAPER, you win!"
ElseIf computerThrow = SCISSORS
message = "Computer threw SCISSORS, It's a tie."
Console.WriteLine(message)