Public Class frmMain Private Sub btnExit_Click(ByVal sender As Object, ByVal e A

Question

Public Class frmMain Private Sub btnExit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnExit.Click Me.Close() End Sub Private Sub btnDisplay_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDisplay.Click ' displays the department name Dim strCode As String ' assign user input to a variable strCode = txtCode.Text ' display department name Select Case strCode Case "A" lblName.Text = "Accounting" Case "B" lblName.Text = "Inventory" 'if anything other then A or B are entered display please enter code If Case "C" lblName.Text = "Please enter a code" End Select End Sub End Class

Explanation / Answer

dim count as integer dim str as string count = 0 Do While inFile.Peek >=0 'peek returns -1 when no more data str = inFile.readLine ' readLine from file intSalaries(count) = cint(val(str)) 'convert the string into a double then into an integer count = count + 1 Loop inFile.close

Related Questions

Navigate

• Browse (All)
• Browse P
• Subjects

---

---

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.