Lab 6 Code

# Lab 6 Code - For I = 1 To 4 lstdeposit.Items.Add...

This preview shows pages 1–2. Sign up to view the full content.

Brianne Loughren Lab 6 Page 171, Exercise 8 15 5 Page 172, Exercise 10 “A Average” Page 174, Program 20 Option Strict On Public Class Form1 Private Sub btndeposit_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btndeposit.Click Dim A(4) As String , B(4) As Single , deposit As Single Dim fmtstr As String = "{0,-15}{1,10}" deposit = CSng (txtdeposit.Text) A(1) = "Month 1:" A(2) = "Month 2:" A(3) = "Month 3:" A(4) = "Month 4:" B(1) = CSng (deposit) B(2) = CSng (B(1) * 1.005 + deposit) B(3) = CSng (B(2) * 1.005 + deposit) B(4) = CSng (B(3) * 1.005 + deposit)

This preview has intentionally blurred sections. Sign up to view the full version.

View Full Document
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: For I = 1 To 4 lstdeposit.Items.Add( String .Format(fmtstr, A(I), FormatCurrency(B(I)))) Next End Sub End Class Page 197, Exercise 6 Original Price: \$125.00 Cost: \$106.00 Page 201, Program 14 Page 408, Exercise 10 lstBox.Items(2 ) Page 408, Exercise 12 lstBox.Items.Remove(“Goethe”) Page 408, Exercise 14 For I = 0 to cboBox.items.count -1 If (i/2) = (i\2) then Lstbox2.items.add(cbobox.items.indexof(i)) End if Next i Page 408, Exercise 16 Lstbox.items.indexof(“cervants”) Page435, Program 10...
View Full Document

{[ snackBarMessage ]}

### Page1 / 2

Lab 6 Code - For I = 1 To 4 lstdeposit.Items.Add...

This preview shows document pages 1 - 2. Sign up to view the full document.

View Full Document
Ask a homework question - tutors are online