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
Dim Discounts As Integer
Decimal.TryParse(txtDiscounts.Text, Discounts)
For intTerm As Integer = 10 To 15
txtDiscounts.Text = txtDiscounts.Text &
"Sales Amt:" & intTerm & ControlChars.NewLine
For disrate As Decimal = 0.05 To 0.1 Step 0.01
Discounts = (intTerm / disrate)
txtDiscounts.Text = txtDiscounts.Text &
disrate.ToString("P0") & ":" &
Discounts.ToString("C2") & ControlChars.NewLine
Next disrate
txtDiscounts.Text = txtDiscounts.Text & ControlChars.NewLine
Next intTerm
End Sub
End Class
how mine looks

how it should look

New Topic/Question
Reply



MultiQuote





|