Spoiler
Coin Toss Program – Programming portion of repetition test
Use a random number generator to simulate a coin toss.
First use an input box to ask the user for the number of times the coin is to be tossed.
Next set up a loop to execute that number of times.
Each time you enter loop, use the random number next method to generate a random number.
Assume that a random value of 0 is considered a Heads and a value of 1 is a Tails.
So, if the random value is 0 add one to an accumulator named intNumHeads.
If the random value is 1 add one to intNumTails.
In addition, display in a list box the word “Heads†if the value is 0 or “Tails†if the value is a 1 for each iteration of the loop. (Hint: use a variable named strCoinToss)
When the loop has finished, output the number of heads and the number of tails in appropriate labels on the form.
Clear the list box and labels before the executing the program again.
Use a random number generator to simulate a coin toss.
First use an input box to ask the user for the number of times the coin is to be tossed.
Next set up a loop to execute that number of times.
Each time you enter loop, use the random number next method to generate a random number.
Assume that a random value of 0 is considered a Heads and a value of 1 is a Tails.
So, if the random value is 0 add one to an accumulator named intNumHeads.
If the random value is 1 add one to intNumTails.
In addition, display in a list box the word “Heads†if the value is 0 or “Tails†if the value is a 1 for each iteration of the loop. (Hint: use a variable named strCoinToss)
When the loop has finished, output the number of heads and the number of tails in appropriate labels on the form.
Clear the list box and labels before the executing the program again.
(adobe acrobat is being weird about copy/paste on my laptop. think its a bug. So I had to go on my desktop to actually be able to copy the prompt but the coding is on my laptop.)Ok here is my coding
Spoiler
Option Explicit On
Option Strict On
Option Infer OffPublic Class mainForm Private Sub exitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitButton.Click
Me.Close()
End Sub Private Sub calcButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calcButton.Click 'declare variables
Dim number As Integer = 0
Dim count As Integer
Dim tailscount As Integer
Dim headscount As Integer
Dim randomGenerator As New Random
Dim inputArea As Object
Dim message As String
Dim title As String
Dim coinside As Integer = randomGenerator.Next(0, 2)
title = "Coin Toss"
message = "Enter number of coins you want to flip" inputArea = InputBox(message, title, CStr(count)) 'determine if heads or tails are flipped
Do Until number > count
If coinside = 0 Then
headscount = headscount + 1
Else
tailscount = tailscount + 1 End If
number = number + 1
Loop headsLabel.Text = headscount.ToString
tailsLabel.Text = tailscount.ToString End Sub
End Class
Option Strict On
Option Infer OffPublic Class mainForm Private Sub exitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitButton.Click
Me.Close()
End Sub Private Sub calcButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles calcButton.Click 'declare variables
Dim number As Integer = 0
Dim count As Integer
Dim tailscount As Integer
Dim headscount As Integer
Dim randomGenerator As New Random
Dim inputArea As Object
Dim message As String
Dim title As String
Dim coinside As Integer = randomGenerator.Next(0, 2)
title = "Coin Toss"
message = "Enter number of coins you want to flip" inputArea = InputBox(message, title, CStr(count)) 'determine if heads or tails are flipped
Do Until number > count
If coinside = 0 Then
headscount = headscount + 1
Else
tailscount = tailscount + 1 End If
number = number + 1
Loop headsLabel.Text = headscount.ToString
tailsLabel.Text = tailscount.ToString End Sub
End Class