visual basic
I have to get the player lizard and spock I am stuck
Public Class Form1
Dim playerSelected As Integer
Dim rand As New Random
Public Function NumberToName(number As Integer) As String ‘Rockbeats lizard, scissors paper
‘lizard beats paper,spock
If number = “0” Then ‘spock beats scissors,paper lizard
Return “Rock” ‘scissors beats paper,lizard
ElseIf number = “1” Then ‘paper beats rock spock
Return “Paper”
ElseIf number = “2” Then
Return “Scissors”
ElseIf number = “3” Then
Return “Lizard”
ElseIf number = “4” Then
Return “Spock”
Else
Return “There was an error”
End If
End Function
Public Function GetResults(computerSelected As Integer,playerSelected As Integer) As String
If computerSelected – playerSelected = 1 Or computerSelected -playerSelected = -2 Then
Return “Computer Wins”
End If
If playerSelected = computerSelected Then
Return “It’s a Tie”
End If
Return “Player Wins”
End Function
Public Sub ReportResults(playerSelected As Integer)
Dim computerSelected = rand.Next(3)
lblPlayer.Text = “The Player Selected ” +NumberToName(playerSelected)
lblComputer.Text = “The Computer Selected ” +NumberToName(computerSelected)
lblWin.Text = GetResults(computerSelected, playerSelected)
End Sub
Private Sub btnRock_Click(sender As Object, e As EventArgs) HandlesbtnRock.Click
playerSelected = 0
ReportResults(playerSelected)
End Sub
Private Sub btnPaper_Click(sender As Object, e As EventArgs)Handles btnPaper.Click
playerSelected = 1
ReportResults(playerSelected)
End Sub
Private Sub btnScissors_Click(sender As Object, e As EventArgs)Handles btnScissors.Click
playerSelected = 2
ReportResults(playerSelected)
End Sub
Private Sub btnExit_Click(sender As Object, e As EventArgs)Handles btnExit.Click
Me.Close()
End Sub
End Class
Expert Answer
Answer to visual basic I have to get the player lizard and spock I am stuck Public Class Form1 Dim playerSelected As Integer Dim r…