compprog4 - As Double priceOfStock = (TextBox1.Text)...

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

View Full Document Right Arrow Icon
Adam VanSlyke Comp. Programming Written Assignment #4 February 17, 2008 3.3 2.) 49 4.) 23 6.) -96 12.) No 14.) Yes 16.) No 18.) 14 20.) 16 22.) 8 Bal Inter WithDr 0 0 0 0 0 0 100 0 0 100 0.05 0 100 0.05 25 105 increasing by 5. (I’m not completely sure how this works.) 0.05 25 80 0.05 25 80 0.05 25 30.)
Background image of page 1

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

View Full DocumentRight Arrow Icon
36.) 225 46.) Dim m As Integer = 2, n As Double = 3 47.) 10 48.) 7 49.) 6 50.) 8 60.) Private Sub btnCompute_Click(…) Handles btnComputer.Click Dim costPerShare, numberOfShares, amount As Double costPerShare = 25.625 numberOfShares = 400 amount = costPerShare * numberOfShares With lstResults.Items .Clear() .Add(amount) End With End Sub 3.4 8.) 8
Background image of page 2
16.) eighth 24.) 9 (contains 0-8) 30.) Hi-Yo Silver 42.) Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Adam VanSlyke 'Declaring varibles Dim priceOfStock, earnings, priceearnings
Background image of page 3

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

View Full DocumentRight Arrow Icon
Background image of page 4
Background image of page 5
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: As Double priceOfStock = (TextBox1.Text) earnings = (TextBox2.Text) 'Calculations priceearnings = priceOfStock / earnings ListBox1.Items.Add( "The price-to-earnings ratio is " & priceearnings) End Sub End Class 48.) Public Class Form1 Private Sub Button1_Click( ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'Declaring variables Dim sentence, letter As String Dim n As Double sentence = "THE QUICK BROWN FOX JUMPS OVER A LAZY DOG" letter = (TextBox1.Text) n = sentence.IndexOf(letter) ListBox1.Items.Add((letter.ToUpper) & " occurs in position " & n) End Sub End Class Not sure why this one didnt work out. 3.5 6.) 0.0 8.) 1.2 42.) unspeakable 56.) At the current interest rate, money will double in 4 years....
View Full Document

This note was uploaded on 04/07/2008 for the course ECON 101 taught by Professor Rines during the Spring '08 term at Tompkins Cortland Community College.

Page1 / 5

compprog4 - As Double priceOfStock = (TextBox1.Text)...

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

View Full Document Right Arrow Icon
Ask a homework question - tutors are online