Imports System, Microsoft.VisualBasic

'Purva Patel'

'12/2/21'

'RockPaperScissors Program'

​

Public Module Module1

    Public Sub Main()

        Const ROCK As Integer = 1

        Const PAPER As Integer = 2

        Const SCISSORS As Integer = 3

        Dim message As String = ""          'Declaring Variables'

        Dim userThrow As Char

        Randomize()

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

        Dim response As Char

        Dim wins As Integer

        Dim ties As Integer

        Dim losses As Integer

        Console.WriteLine("Do you wish to play; (Y)es or (N)o")

        response = Console.ReadLine()

        While response = "Y" 

        Console.WriteLine("Choose (R)ock, (P)aper, or (S)cissors: ") 

        userThrow = Console.ReadLine()          'User Input'

​

        If userThrow = "R" Then

            If computerThrow = SCISSORS Then

                message = "Computer chose Scissors: You win!"

                wins = wins + 1

            Else If computerThrow = ROCK Then

                message = "Computer chose Rock: You tie!"

                ties = ties + 1

            Else If computerThrow = PAPER

                message = "Computer chose Scissors: You lose!"

                losses = losses + 1

            End If

        If userThrow = "P" Then

            If computerThrow = PAPER Then

                message = "Computer chose Paper: You lose!"

                losses = losses + 1

            ElseIf computerThrow = SCISSORS Then

                message = "Computer chose Scissors: You win!"

                wins = wins + 1

            Else If computerThrow = PAPER Then

                message = "Computer chose Paper: You tie!"  

                ties = ties + 1

            End If                              'Calculations'

​

        Else If userThrow = "S" Then

            Else If computerThrow = ROCK Then

                message = "Computer chose Paper: You lose!"

            Else If computerThrow = PAPER Then

                message = "Computer chose Paper: You win!"

            Else If computerThrow = SCISSORS Then

                message = "Computer chose Scissors: You tie!"

            Else If computerThrow = ROCK Then

                message = "Computer chose Rock: You lose!"

            End If

        End If

        Console.WriteLine(message & wins & losses & ties)       

​

        End While

    End Sub

End Module