Question

Please Solve this problem using Visual Basic Programming Language (show design Interface and programming codes):

Q. The Interface provides a text box, for the user to enter his or her current salary. The Calculate Button's Click Event Procedure should calculate the new salary amounts using rates of 2% through 6% in increment's of 0.5%. The procedure should display the rates and salary amounts in the lblNewSalary control. Code the procedure using the For....Next statement. Save the work.

Answer 1

VB Code:

Public Class SalIncrement

    Private Sub btnCalculate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCalculate.Click

        ' Reading current salary from user
        Dim currentSal As Double = Double.Parse(tbSalary.Text)

        Dim newSal As Double

        ' Incrementing at step of 0.5 from 2 to 6
        For increment As Double = 2 To 6 Step 0.5

            ' Calculating new salary
            newSal = currentSal + (currentSal * (increment / 100.0))

            ' Constructing string for writing data to text box
            lblNewSalary.Text += "" & vbNewLine & ("Rate: " + increment.ToString() + "%" & "     " & " New Salary: " + newSal.ToString())

        Next

    End Sub

End Class

-----------------------------------------------------------------------------------------------------------------------------------------------------------------

Sample Output:

OX Salary Increment Cumrent Salary 2500 Calculate Rate: 2% Rate: 2.5% Rate: 3% Rate: 3.5% Rate: 4% Rate: 4.5% Rate: 5% Rate: 5.5% Rate: 6% New Salary: 2550 New Salary: 2575 New Salary: 2600 New Salary: 2625 New Salary: 2650 New Salary: 25625 New Salary: 25875 New Salary: 2612.5 New Salary: 26375