Question

376 Chapter 6 Loop Structures Case Programming Assignments con Most Rainfall in the USA USE CASE DEFINITION e Windows application opens with the heading "Most Rainfall in US - Kauai," a ListBox object that displays the monthly rainfall amounts, an i amounts in inches mage, and a Button object that allows the user to begin entering their rainfall 2. A menu bar displays the File menu, which has two menu items: Clear and Exit. 3. T ofnintel emo he user enters up to 12 monthly values of rainfall per month in Kauai. 12 monthly value in an Inpur Box object, with each valuc representing the number of inches 4. The program asks the user for the rainfall amount again if the value is a negative number or the entry is a 5. The program displays the average inches of rainfall rounded to one decimal place nonnumeric value. he user can clear the input and the result by clicking the Clear menu item, and then can repeat Steps 3-5. If the user dlicks the Cancel button in the input box, the average for the values entered is calculated. If the user did not enter any values, the program displays an appropriate message 7. The user clicks the Exit menu item to close the application. FIGURE 6-115 Most Rainfall in US File Most Rainfall in US - Kauai 8.6 9.2 10.5 14.2 Rainfall Average Enter Rainfall 6.4 3.2 2.9 5.9 8.8 9.2 7.4 Average Rainfall per Month is 8.0 inches

the code is in visual basic

Answer 1

Below is the solution:

code:

Public Class frmMain
    'declare variable
    Dim avg As Double
    Dim sum As Double = 0
    Dim rain As Double
    Dim count As Integer
    Private Sub ClearToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ClearToolStripMenuItem.Click
        'clear all the values
        txtRainfall.Text = ""
        lstRainfall.Items.Clear()
        sum = 0
        avg = 0
    End Sub

    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close() 'close form
    End Sub

    'textbox button press event
    Private Sub textBox_EnterClicked(sender As Object, e As KeyEventArgs) Handles txtRainfall.KeyDown
        count = lstRainfall.Items.Count()
        If e.KeyCode = Keys.Enter Then 'check for enter key press
            If Not Double.TryParse(txtRainfall.Text, rain) Then
                MessageBox.Show("Error! Enter Rainfall") ''error when enter wrong data
            Else
                lstRainfall.Items.Add(txtRainfall.Text) ''add the rainfall
                txtRainfall.Text = ""
                If count = 11 Then 'sum of all the raifall entered
                    For i = 0 To lstRainfall.Items.Count - 1
                        sum += CDbl(lstRainfall.Items(i))
                    Next
                    avg = sum / lstRainfall.Items.Count 'average the sum of all the rainfall entered
                    lblRainfall.Text = "Avearge Rainfall per month is " & FormatNumber(avg, 1) & " inches " 'display number in one decimal format place
                End If
            End If
        End If
    End Sub

End Class

output:

We were unable to transcribe this image