Problems # 7 and #8 Using Visual Basic programming language using windows Forms application (Dim statement) Example

Question

Private Sub Button1 Click(sender As object, e As EventArgs) Handles Button1.Click Write a Program TO FIND THE TOTAL AMOUNT OF CHECKS WRITTEN eses Dim F As String=-(0, -15fp0)(1, 20)(2, 10:C2)" Din C, D As String Din I As Integer Din T As Decimal- Dim A As Decimal 'C -USED TO REPRESENT CHECK NUMBER: D-USED TO REPRESENT DATE WRITTEN: A-USED TO REPRESENT AMOUNT T USED FOR Sun of amounts ListBoxi.Items.Add("Alvin T. Strong") ListBoxi.Items.Add(" ListBoxi.Items.Add(" Checkbook Array") ListBox1.Items.Add( Dim mdata() As String1, 6/5/81, 15.5), (181", 6/7/81, 25.0), (102, "6/15/81", 145.0), ("103", 6/22/81", 65.e), "184", 6/38/81, 211.0), ("15", 6/30/81", 79.5)) ListBox1 . Items . Add(String.Format(F, "Check #", ListBox1.Items.Add(String.Format (F," ListBox1.Items. Add ( For I To mdata.GetUpperBound(e) "Date writen", "Amount", --)) C ndata(I, 8) Dmdata(1, 1) A ndata(I, 2) ListBox1.Items.Add(String.Format(F, C, D, A)) Next I ListBox1.Items. Add(" ListBox1.Items.Add(" ListBox1. Items . Add(" The Sum of Checks -& FormatCurrency(T, 2)) End Sub Private Sub Button2 click(sender As Object, e As Eventargs) Handles Button2.click SET UP FOR PRINTING LISTBOX OUTPUT TO THE PRINTER -Printbocument1.Print) End Sub Private Sub PRINTDOCUMENT1 PRINTPAGE (ByVal SENDER As Systen.object, ByVal E As System.Drawing.Printing.PrintPageEventArgs) Handles PrintDocument1.PrintPage HANDLE PRINTING AND PRINT PREVIEWS MEN PRINTING ALL Dim HEADINGFONT As New Font ("COURIER NEW, 14, FontStyle.Bold) Dim HORIZONTALPRINTLOCATIONSINGLE As Single E MarginBounds. Left - Dim PRINTFONT As New Font("COURIER NEW, 12) -Dim LINEHEIGHTSINGLE As Single - PRINTFONT.GetHeight + 2 Dim VERTICALPRINTLOCATIONSINGLE As Single E.MarginBounds. Top Din PRINTLINESTRING As String Dim I As Integer LOOP THROUGH THE ENTIER LIST - For I -e To ListBox1.Items.Count 1