Embedded Files
Rainfall Calculator
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnInput.Click
Dim intCount As Integer = 0
For intCount = 0 To 11
rainfall(intCount) = CDec(InputBox("Enter the amount of rainfall"))
Next
ListBox1.Items.Add("Monthly Rainfall Input")
ListBox1.Items.Add("--------------------")
ListBox1.Items.Add("" & rainfall(0) & " for Janurary")
ListBox1.Items.Add("" & rainfall(1) & " for Feburary")
ListBox1.Items.Add("" & rainfall(2) & " for March")
ListBox1.Items.Add("" & rainfall(3) & " for April")
ListBox1.Items.Add("" & rainfall(4) & " for May")
ListBox1.Items.Add("" & rainfall(5) & " for June")
ListBox1.Items.Add("" & rainfall(6) & " for July")
ListBox1.Items.Add("" & rainfall(7) & " for August")
ListBox1.Items.Add("" & rainfall(8) & " for September")
ListBox1.Items.Add("" & rainfall(9) & " for October")
ListBox1.Items.Add("" & rainfall(10) & " for November")
ListBox1.Items.Add("" & rainfall(11) & " for December")
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDisplay.Click
Dim high As Decimal = rainfall(0)
Dim low As Decimal = rainfall(0)
Dim intCount As Integer
For intCount = 0 To 11
If rainfall(intCount) > high Then
high = rainfall(intCount)
End If
If rainfall(intCount) < low Then
low = rainfall(intCount)
End If
Next
lblLow.Text = low
lblHigh.Text = high
Dim avgCount As Integer
Dim IntTotal As Integer
Dim dblAverage As Single
For avgCount = 0 To 11
IntTotal += rainfall(avgCount)
Next avgCount
dblAverage = IntTotal / rainfall.Length
lbltotal.Text = IntTotal
lblaverage.Text = dblAverage
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ListBox1.SelectedIndexChanged
End Sub
Private Sub btnClear_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClear.Click
ListBox1.Items.Clear()
lbltotal.Text = ""
lblaverage.Text = ""
lblLow.Text = ""
lblHigh.Text = ""
End Sub
Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
Me.Close()
End Sub
End Class
Page updated
Google Sites
Report abuse