here is what I currently have. I am trying to get my textReport.txt to show Bonus on the first line, then the bonuses on the following lines, and then the last line show a grand total of all the bonuses.
Private Sub btnCreate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCreate.Click
'Define Variables
Dim intSalaries() As Integer = {2400, 1500, _
1600, 2790, _
1000, 6300, _
1300, 2700}
Dim strRate As String
Dim decRate As Decimal
Dim decBonus As Decimal
Dim intCode As Integer
'Convert txtRate.text to decimal
Decimal.TryParse(txtRate.Text, decRate)
'subtract 1 from the code to get the appropriate subscript
'intSubscript = intCode - 1
'txtReport.Text = String.Empty
For intSubscript As Integer = 0 To 7
txtReport.Text = txtReport.Text & _
intSalaries(intSubscript) * decRate & ControlChars.NewLine
Next intSubscript
'txtReport.Text = decBonus(intSubscript).ToString
End Sub
End Class
Private Sub btnCreate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCreate.Click
'Define Variables
Dim intSalaries() As Integer = {2400, 1500, _
1600, 2790, _
1000, 6300, _
1300, 2700}
Dim strRate As String
Dim decRate As Decimal
Dim decBonus As Decimal
Dim intCode As Integer
'Convert txtRate.text to decimal
Decimal.TryParse(txtRate.Text, decRate)
'subtract 1 from the code to get the appropriate subscript
'intSubscript = intCode - 1
'txtReport.Text = String.Empty
For intSubscript As Integer = 0 To 7
txtReport.Text = txtReport.Text & _
intSalaries(intSubscript) * decRate & ControlChars.NewLine
Next intSubscript
'txtReport.Text = decBonus(intSubscript).ToString
End Sub
End Class