**Visual Basic** A client needs an a pplication that lets him enter the rainfall
ID: 3735685 • Letter: #
Question
**Visual Basic**
A client needs an a pplication that lets him enter the rainfall for each of 12 months. The application should calculate and display the following statistics: total rainfall for the year, the average monthly rainfall, and the months with the highest and lowest amounts of rainfall.
Discussion
In this module you are learning about arrays and the types of loops that are used to process them. If you were to create the application above, how might you utilize arrays and what kind of loop(s) would you use? In your answer, consider the following:
· How many arrays and what would it/they be used for?
· What data type(s) would your array(s) be? Why?
· Procedure-level or module-level? Why?
· One-dimensional or two-dimensional? Why?
· What type(s) of loop(s) would you use (For…Next, For Each…Next, etc.) and why would you choose that type/those types?
Explanation / Answer
Please find my Code:
You can answer discussion Questions by looking into Code.
Please rate my answer:
RainfallStats.vb
Public Class RainfallStats
' Public so that the other form can mutate.
' Could have used properties, but this is easier
Public Rainfall As Integer() = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11}
'Enumerated the months for easier access.
ReadOnly MONTHS = {"January", "Febuary", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"}
Private Sub DisplayStatsB_Click(sender As Object, e As EventArgs) Handles DisplayStatsB.Click
Dim i = 0
Dim LargestNumber
Dim IndexOfLargest
Dim SmallestNumber
Dim IndexOfSmallest
Dim Average As Double = 0.0
Dim Total = 0
ListBox1.Items.Add("Monthly Rainfall Statistics")
ListBox1.Items.Add("---------------------------------------")
IndexOfLargest = i
IndexOfSmallest = i
LargestNumber = Rainfall(0)
SmallestNumber = Rainfall(0)
For i = 0 To 11
Dim month = MONTHS(i)
Dim stat = Rainfall(i)
'smallest
If (SmallestNumber > Rainfall(i)) Then
SmallestNumber = Rainfall(i)
IndexOfSmallest = i
End If
'largest
If (LargestNumber < Rainfall(i)) Then
LargestNumber = Rainfall(i)
IndexOfLargest = i
End If
'Calculate Total
Total += Rainfall(i)
ListBox1.Items.Add("Rainfall for " + MONTHS(i) + " = " + Convert.ToString(stat))
Next
'Average
Average = Total / 11
Min_TextBox.Text = "The minimum monthly rainfall was " + Convert.ToString(SmallestNumber) + " " + MONTHS(IndexOfSmallest)
Max_TextBox.Text = "The minimum monthly rainfall was " + Convert.ToString(LargestNumber) + " " + MONTHS(IndexOfLargest)
Average_TextBox.Text = "The average monthly rainfall was " + Convert.ToString(Average)
TotalAnnualRainfall_TextBox.Text = "The total annual rainfall was " + Convert.ToString(Total)
End Sub
Private Sub Clear()
ListBox1.Items.Clear()
Rainfall = {0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11}
Min_TextBox.Text = "The minimum monthly rainfall was "
Max_TextBox.Text = "The minimum monthly rainfall was "
Average_TextBox.Text = "The average monthly rainfall was "
TotalAnnualRainfall_TextBox.Text = "The total annual rainfall was "
End Sub
' The Input Dialog form allows the user to input the rainfall
Private Sub InputB_Click(sender As Object, e As EventArgs) Handles InputB.Click
InputDialog.Show()
End Sub
Private Sub ExitB_Click(sender As Object, e As EventArgs) Handles ExitB.Click
Me.Close()
End Sub
Private Sub ClearB_Click(sender As Object, e As EventArgs) Handles ClearB.Click
Clear()
End Sub
End Class
RainfallStats.Designer.vb
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class RainfallStats
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
'NOTE: The following procedure is required by the Windows Form Designer
'It can be modified using the Windows Form Designer.
'Do not modify it using the code editor.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.ListBox1 = New System.Windows.Forms.ListBox()
Me.InputB = New System.Windows.Forms.Button()
Me.DisplayStatsB = New System.Windows.Forms.Button()
Me.ClearB = New System.Windows.Forms.Button()
Me.ExitB = New System.Windows.Forms.Button()
Me.StatsLabel = New System.Windows.Forms.Label()
Me.TotalAnnualRainfall_TextBox = New System.Windows.Forms.TextBox()
Me.Average_TextBox = New System.Windows.Forms.TextBox()
Me.Min_TextBox = New System.Windows.Forms.TextBox()
Me.Max_TextBox = New System.Windows.Forms.TextBox()
Me.SuspendLayout()
'
'ListBox1
'
Me.ListBox1.FormattingEnabled = True
Me.ListBox1.Location = New System.Drawing.Point(13, 13)
Me.ListBox1.Name = "ListBox1"
Me.ListBox1.Size = New System.Drawing.Size(193, 186)
Me.ListBox1.TabIndex = 0
'
'InputB
'
Me.InputB.Location = New System.Drawing.Point(13, 232)
Me.InputB.Name = "InputB"
Me.InputB.Size = New System.Drawing.Size(137, 47)
Me.InputB.TabIndex = 1
Me.InputB.Text = "Input Monthly Rainfall"
Me.InputB.UseVisualStyleBackColor = True
'
'DisplayStatsB
'
Me.DisplayStatsB.Location = New System.Drawing.Point(187, 232)
Me.DisplayStatsB.Name = "DisplayStatsB"
Me.DisplayStatsB.Size = New System.Drawing.Size(137, 47)
Me.DisplayStatsB.TabIndex = 2
Me.DisplayStatsB.Text = "Display Stats"
Me.DisplayStatsB.UseVisualStyleBackColor = True
'
'ClearB
'
Me.ClearB.Location = New System.Drawing.Point(348, 232)
Me.ClearB.Name = "ClearB"
Me.ClearB.Size = New System.Drawing.Size(137, 47)
Me.ClearB.TabIndex = 3
Me.ClearB.Text = "Clear"
Me.ClearB.UseVisualStyleBackColor = True
'
'ExitB
'
Me.ExitB.Location = New System.Drawing.Point(512, 232)
Me.ExitB.Name = "ExitB"
Me.ExitB.Size = New System.Drawing.Size(137, 47)
Me.ExitB.TabIndex = 4
Me.ExitB.Text = "Exit"
Me.ExitB.UseVisualStyleBackColor = True
'
'StatsLabel
'
Me.StatsLabel.AutoSize = True
Me.StatsLabel.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Underline, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.StatsLabel.Location = New System.Drawing.Point(253, 34)
Me.StatsLabel.Name = "StatsLabel"
Me.StatsLabel.Size = New System.Drawing.Size(158, 16)
Me.StatsLabel.TabIndex = 5
Me.StatsLabel.Text = "Monthly Rainfall Statistics"
'
'TotalAnnualRainfall_TextBox
'
Me.TotalAnnualRainfall_TextBox.Location = New System.Drawing.Point(256, 68)
Me.TotalAnnualRainfall_TextBox.Name = "TotalAnnualRainfall_TextBox"
Me.TotalAnnualRainfall_TextBox.ReadOnly = True
Me.TotalAnnualRainfall_TextBox.Size = New System.Drawing.Size(393, 20)
Me.TotalAnnualRainfall_TextBox.TabIndex = 6
Me.TotalAnnualRainfall_TextBox.Text = "The total annual rainfall was "
'
'Average_TextBox
'
Me.Average_TextBox.Location = New System.Drawing.Point(256, 94)
Me.Average_TextBox.Name = "Average_TextBox"
Me.Average_TextBox.ReadOnly = True
Me.Average_TextBox.Size = New System.Drawing.Size(393, 20)
Me.Average_TextBox.TabIndex = 7
Me.Average_TextBox.Text = "The average monthly rainfall was"
'
'Min_TextBox
'
Me.Min_TextBox.Location = New System.Drawing.Point(256, 120)
Me.Min_TextBox.Name = "Min_TextBox"
Me.Min_TextBox.ReadOnly = True
Me.Min_TextBox.Size = New System.Drawing.Size(393, 20)
Me.Min_TextBox.TabIndex = 8
Me.Min_TextBox.Text = "The minimum monthly rainfall was"
'
'Max_TextBox
'
Me.Max_TextBox.Location = New System.Drawing.Point(256, 146)
Me.Max_TextBox.Name = "Max_TextBox"
Me.Max_TextBox.ReadOnly = True
Me.Max_TextBox.Size = New System.Drawing.Size(393, 20)
Me.Max_TextBox.TabIndex = 9
Me.Max_TextBox.Text = "The maximum monthly rainfall was "
'
'RainfallStats
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(673, 291)
Me.Controls.Add(Me.Max_TextBox)
Me.Controls.Add(Me.Min_TextBox)
Me.Controls.Add(Me.Average_TextBox)
Me.Controls.Add(Me.TotalAnnualRainfall_TextBox)
Me.Controls.Add(Me.StatsLabel)
Me.Controls.Add(Me.ExitB)
Me.Controls.Add(Me.ClearB)
Me.Controls.Add(Me.DisplayStatsB)
Me.Controls.Add(Me.InputB)
Me.Controls.Add(Me.ListBox1)
Me.Name = "RainfallStats"
Me.Text = "Rainfall Statistics"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
Friend WithEvents InputB As System.Windows.Forms.Button
Friend WithEvents DisplayStatsB As System.Windows.Forms.Button
Friend WithEvents ClearB As System.Windows.Forms.Button
Friend WithEvents ExitB As System.Windows.Forms.Button
Friend WithEvents StatsLabel As System.Windows.Forms.Label
Friend WithEvents TotalAnnualRainfall_TextBox As System.Windows.Forms.TextBox
Friend WithEvents Average_TextBox As System.Windows.Forms.TextBox
Friend WithEvents Min_TextBox As System.Windows.Forms.TextBox
Friend WithEvents Max_TextBox As System.Windows.Forms.TextBox
End Class
InputDialog.vb
Public Class InputDialog
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If (isCorrectData()) Then
Me.Close()
Else
MessageBox.Show("All data input must be numeric")
End If
End Sub
Private Function isCorrectData() As Boolean
Dim Index As Integer
Dim control As Control
Index = 11
For Each control In Me.Controls
If (TypeOf control Is TextBox) Then
If (Not IsNumeric(control.Text)) Then
Return False
Else
RainfallStats.RAINFALL(Index) = Integer.Parse(control.Text)
End If
Index -= 1
End If
Next
Return True
End Function
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
For Each control In Me.Controls
If (TypeOf control Is TextBox) Then
TryCast(control, TextBox).Text = ""
End If
Next
End Sub
Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
Me.Close()
End Sub
End Class
InputDialog.Designer.vb
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class InputDialog
Inherits System.Windows.Forms.Form
'Form overrides dispose to clean up the component list.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Required by the Windows Form Designer
Private components As System.ComponentModel.IContainer
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.Label1 = New System.Windows.Forms.Label()
Me.Label2 = New System.Windows.Forms.Label()
Me.Label3 = New System.Windows.Forms.Label()
Me.Label4 = New System.Windows.Forms.Label()
Me.Label5 = New System.Windows.Forms.Label()
Me.Label6 = New System.Windows.Forms.Label()
Me.Label7 = New System.Windows.Forms.Label()
Me.Label8 = New System.Windows.Forms.Label()
Me.Label9 = New System.Windows.Forms.Label()
Me.Label10 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.TextBox2 = New System.Windows.Forms.TextBox()
Me.TextBox3 = New System.Windows.Forms.TextBox()
Me.TextBox4 = New System.Windows.Forms.TextBox()
Me.TextBox5 = New System.Windows.Forms.TextBox()
Me.TextBox6 = New System.Windows.Forms.TextBox()
Me.TextBox7 = New System.Windows.Forms.TextBox()
Me.TextBox8 = New System.Windows.Forms.TextBox()
Me.TextBox9 = New System.Windows.Forms.TextBox()
Me.TextBox10 = New System.Windows.Forms.TextBox()
Me.Label11 = New System.Windows.Forms.Label()
Me.Label12 = New System.Windows.Forms.Label()
Me.TextBox11 = New System.Windows.Forms.TextBox()
Me.TextBox12 = New System.Windows.Forms.TextBox()
Me.Button1 = New System.Windows.Forms.Button()
Me.Button2 = New System.Windows.Forms.Button()
Me.Button3 = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(13, 13)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(44, 13)
Me.Label1.TabIndex = 0
Me.Label1.Text = "January"
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(58, 13)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(45, 13)
Me.Label2.TabIndex = 1
Me.Label2.Text = "Febuary"
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(103, 13)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(37, 13)
Me.Label3.TabIndex = 2
Me.Label3.Text = "March"
'
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(148, 13)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(27, 13)
Me.Label4.TabIndex = 3
Me.Label4.Text = "April"
'
'Label5
'
Me.Label5.AutoSize = True
Me.Label5.Location = New System.Drawing.Point(193, 13)
Me.Label5.Name = "Label5"
Me.Label5.Size = New System.Drawing.Size(27, 13)
Me.Label5.TabIndex = 4
Me.Label5.Text = "May"
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(238, 13)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(30, 13)
Me.Label6.TabIndex = 5
Me.Label6.Text = "June"
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(283, 13)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(25, 13)
Me.Label7.TabIndex = 6
Me.Label7.Text = "July"
'
'Label8
'
Me.Label8.AutoSize = True
Me.Label8.Location = New System.Drawing.Point(328, 13)
Me.Label8.Name = "Label8"
Me.Label8.Size = New System.Drawing.Size(40, 13)
Me.Label8.TabIndex = 7
Me.Label8.Text = "August"
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Location = New System.Drawing.Point(373, 13)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(29, 13)
Me.Label9.TabIndex = 8
Me.Label9.Text = "Sept"
'
'Label10
'
Me.Label10.AutoSize = True
Me.Label10.Location = New System.Drawing.Point(418, 13)
Me.Label10.Name = "Label10"
Me.Label10.Size = New System.Drawing.Size(45, 13)
Me.Label10.TabIndex = 9
Me.Label10.Text = "October"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(16, 30)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(36, 20)
Me.TextBox1.TabIndex = 10
'
'TextBox2
'
Me.TextBox2.Location = New System.Drawing.Point(61, 29)
Me.TextBox2.Name = "TextBox2"
Me.TextBox2.Size = New System.Drawing.Size(36, 20)
Me.TextBox2.TabIndex = 11
'
'TextBox3
'
Me.TextBox3.Location = New System.Drawing.Point(106, 29)
Me.TextBox3.Name = "TextBox3"
Me.TextBox3.Size = New System.Drawing.Size(36, 20)
Me.TextBox3.TabIndex = 12
'
'TextBox4
'
Me.TextBox4.Location = New System.Drawing.Point(151, 30)
Me.TextBox4.Name = "TextBox4"
Me.TextBox4.Size = New System.Drawing.Size(36, 20)
Me.TextBox4.TabIndex = 13
'
'TextBox5
'
Me.TextBox5.Location = New System.Drawing.Point(196, 30)
Me.TextBox5.Name = "TextBox5"
Me.TextBox5.Size = New System.Drawing.Size(36, 20)
Me.TextBox5.TabIndex = 14
'
'TextBox6
'
Me.TextBox6.Location = New System.Drawing.Point(241, 30)
Me.TextBox6.Name = "TextBox6"
Me.TextBox6.Size = New System.Drawing.Size(36, 20)
Me.TextBox6.TabIndex = 15
'
'TextBox7
'
Me.TextBox7.Location = New System.Drawing.Point(286, 29)
Me.TextBox7.Name = "TextBox7"
Me.TextBox7.Size = New System.Drawing.Size(36, 20)
Me.TextBox7.TabIndex = 16
'
'TextBox8
'
Me.TextBox8.Location = New System.Drawing.Point(331, 30)
Me.TextBox8.Name = "TextBox8"
Me.TextBox8.Size = New System.Drawing.Size(36, 20)
Me.TextBox8.TabIndex = 17
'
'TextBox9
'
Me.TextBox9.Location = New System.Drawing.Point(376, 30)
Me.TextBox9.Name = "TextBox9"
Me.TextBox9.Size = New System.Drawing.Size(36, 20)
Me.TextBox9.TabIndex = 18
'
'TextBox10
'
Me.TextBox10.Location = New System.Drawing.Point(421, 30)
Me.TextBox10.Name = "TextBox10"
Me.TextBox10.Size = New System.Drawing.Size(36, 20)
Me.TextBox10.TabIndex = 19
'
'Label11
'
Me.Label11.AutoSize = True
Me.Label11.Location = New System.Drawing.Point(469, 13)
Me.Label11.Name = "Label11"
Me.Label11.Size = New System.Drawing.Size(56, 13)
Me.Label11.TabIndex = 20
Me.Label11.Text = "November"
'
'Label12
'
Me.Label12.AutoSize = True
Me.Label12.Location = New System.Drawing.Point(520, 13)
Me.Label12.Name = "Label12"
Me.Label12.Size = New System.Drawing.Size(56, 13)
Me.Label12.TabIndex = 21
Me.Label12.Text = "December"
'
'TextBox11
'
Me.TextBox11.Location = New System.Drawing.Point(472, 29)
Me.TextBox11.Name = "TextBox11"
Me.TextBox11.Size = New System.Drawing.Size(36, 20)
Me.TextBox11.TabIndex = 22
'
'TextBox12
'
Me.TextBox12.Location = New System.Drawing.Point(523, 30)
Me.TextBox12.Name = "TextBox12"
Me.TextBox12.Size = New System.Drawing.Size(36, 20)
Me.TextBox12.TabIndex = 23
'
'Button1
'
Me.Button1.Location = New System.Drawing.Point(101, 60)
Me.Button1.Name = "Button1"
Me.Button1.Size = New System.Drawing.Size(86, 23)
Me.Button1.TabIndex = 24
Me.Button1.Text = "Submit"
Me.Button1.UseVisualStyleBackColor = True
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(241, 60)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(81, 23)
Me.Button2.TabIndex = 25
Me.Button2.Text = "Clear"
Me.Button2.UseVisualStyleBackColor = True
'
'Button3
'
Me.Button3.Location = New System.Drawing.Point(376, 60)
Me.Button3.Name = "Button3"
Me.Button3.Size = New System.Drawing.Size(87, 23)
Me.Button3.TabIndex = 26
Me.Button3.Text = "Exit (no save)"
Me.Button3.UseVisualStyleBackColor = True
'
'InputDialog
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(576, 95)
Me.Controls.Add(Me.Button3)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.TextBox12)
Me.Controls.Add(Me.TextBox11)
Me.Controls.Add(Me.Label12)
Me.Controls.Add(Me.Label11)
Me.Controls.Add(Me.TextBox10)
Me.Controls.Add(Me.TextBox9)
Me.Controls.Add(Me.TextBox8)
Me.Controls.Add(Me.TextBox7)
Me.Controls.Add(Me.TextBox6)
Me.Controls.Add(Me.TextBox5)
Me.Controls.Add(Me.TextBox4)
Me.Controls.Add(Me.TextBox3)
Me.Controls.Add(Me.TextBox2)
Me.Controls.Add(Me.TextBox1)
Me.Controls.Add(Me.Label10)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.Label8)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.Label5)
Me.Controls.Add(Me.Label4)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.Label1)
Me.Name = "InputDialog"
Me.Text = "InputDialog"
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents Label1 As System.Windows.Forms.Label
Friend WithEvents Label2 As System.Windows.Forms.Label
Friend WithEvents Label3 As System.Windows.Forms.Label
Friend WithEvents Label4 As System.Windows.Forms.Label
Friend WithEvents Label5 As System.Windows.Forms.Label
Friend WithEvents Label6 As System.Windows.Forms.Label
Friend WithEvents Label7 As System.Windows.Forms.Label
Friend WithEvents Label8 As System.Windows.Forms.Label
Friend WithEvents Label9 As System.Windows.Forms.Label
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents TextBox1 As System.Windows.Forms.TextBox
Friend WithEvents TextBox2 As System.Windows.Forms.TextBox
Friend WithEvents TextBox3 As System.Windows.Forms.TextBox
Friend WithEvents TextBox4 As System.Windows.Forms.TextBox
Friend WithEvents TextBox5 As System.Windows.Forms.TextBox
Friend WithEvents TextBox6 As System.Windows.Forms.TextBox
Friend WithEvents TextBox7 As System.Windows.Forms.TextBox
Friend WithEvents TextBox8 As System.Windows.Forms.TextBox
Friend WithEvents TextBox9 As System.Windows.Forms.TextBox
Friend WithEvents TextBox10 As System.Windows.Forms.TextBox
Friend WithEvents Label11 As System.Windows.Forms.Label
Friend WithEvents Label12 As System.Windows.Forms.Label
Friend WithEvents TextBox11 As System.Windows.Forms.TextBox
Friend WithEvents TextBox12 As System.Windows.Forms.TextBox
Friend WithEvents Button1 As System.Windows.Forms.Button
Friend WithEvents Button2 As System.Windows.Forms.Button
Friend WithEvents Button3 As System.Windows.Forms.Button
End Class
Related Questions
Navigate
Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.