Homework 19 PDF

Preview

Summary

Homework 19...

Description

1

Homework #19

Problem24

Private Sub btnDisplay_Click(sender As Object, e As EventArgs) Handles btnDisplay.Click Dim Team() As String = IO.File.ReadAllLines("C:\Users\raker\Documents\Visual Studio 2012\Projects\WindowsApplication1\WindowsApplication1\Baseball.txt") Dim TeamName As String Dim Data(1) As String For I As Integer = 1 To Team.Count - 1 Step 2 TeamName = Team(I) Data = TeamName.Split("."c) Team(I) = Data(0)

2 lstTeams.Items.Add(Team(I)) Next End Sub

Problem 36

Private Sub btnPush_Click(sender As Object, e As EventArgs) Handles btnPush.Click Dim Day As String = InputBox("Please Select A Number Between 1 and 12.", , "Select A Number") Dim Gifts() As String = {"Partridge In A Pear Tree", "Turtle Dove", "French Hen", "Calling Birds", "Golden Rings", "Geese-A-Laying", "Swans-A-Swimming", "Maids-A-Milking", "Ladys Dancing", "Lords-A-Leaping", "Pipers Piping", "Drummers Drumming"} Dim Costs() As Double = {204.99, 62.5, 55.0, 129.99, 156.0, 35.0, 1000.0, 7.25, 699.34, 476.67, 232.91, 231.23} Dim DailyCosts(12) As Double : Dim GiftDay As Integer = CInt(Day) Dim Total, RunningTotal As Double lstResults.Items.Add("The Gifts For Day " & Day & " Are: ") For I As Integer = 1 To GiftDay lstResults.Items.Add(I & " " & Gifts(I)) DailyCosts(I) = I * Costs(I - 1) Total = DailyCosts.Sum RunningTotal += Total Next lstResults.Items.Add(" ") lstResults.Items.Add("Costs For Day " & Day & ": " & FormatCurrency(Total)) lstResults.Items.Add("Total Cost For The " & Day & " Days: " & FormatCurrency(RunningTotal)) End Sub...