IE 148 homework 3

# IE 148 homework 3 - Dim Car As Single i As Single Car =...

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

IE 148 Homework #3 Tyler Fox Problem 1 Sub Myprog() Dim A As Single, B As Single, C As Single, D As Single A = InputBox("X") D = 0.25 * A C = 0.2 * A If (A < 100) Then Else End If End Sub

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

View Full Document
IE 148 Homework #3 Tyler Fox Problem 2 Sub Myprog() Dim A As String, B As String, Student As String A = InputBox("Enter A Name") B = InputBox("Enter A Percent") If (B >= 90) Then ElseIf (B >= 80) Then ElseIf (B >= 70) Then ElseIf (B >= 60) Then MsgBox (A & " = D") ElseIf (B < 60) Then End If End Sub
IE 148 Homework #3 Tyler Fox

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

View Full Document
IE 148 Homework #3 Tyler Fox Problem 3 Sub Myprog()

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: Dim Car As Single, i As Single Car = 20000 For i = 1 To 5 Car = Car * 0.85 Value = Value & vbCrLf & "Value=\$" & Car Next i MsgBox (Value) End Sub Problem 4 Sub Myprog() Dim Car As Single, A As Single Car = 20000 Do X = X + 1 Car = Car * 0.85 IE 148 Homework #3 Tyler Fox If (Car < 5000) Then Exit Do End If Loop MsgBox ("year car is less than \$5000 is " & X) End Sub Problem 5 Sub Myprog() Dim A As String, B As String A = InputBox("enter a word") If ((Mid(A, 1, 1)) < (Mid(A, 2, 1))) Then MsgBox ("Alphabetical order= YES") Else MsgBox ("Alphabetical order= NO") End If End Sub IE 148 Homework #3 Tyler Fox...
View Full Document

## This note was uploaded on 08/18/2011 for the course IE 148 taught by Professor Davesly during the Spring '11 term at Iowa State.

### Page1 / 6

IE 148 homework 3 - Dim Car As Single i As Single Car =...

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

View Full Document
Ask a homework question - tutors are online