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

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

View Full Document Right Arrow Icon
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)
Background image of page 1

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

View Full Document Right Arrow Icon
Background image of page 2
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 Right Arrow Icon
Ask a homework question - tutors are online