IE 148 homework 3

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

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

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

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

View Full DocumentRight Arrow Icon
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
Background image of page 2
IE 148 Homework #3 Tyler Fox
Background image of page 3

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

View Full DocumentRight Arrow Icon
IE 148 Homework #3 Tyler Fox Problem 3 Sub Myprog()
Background image of page 4
Background image of page 5

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

View Full DocumentRight Arrow Icon
Background image of page 6
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 &amp; vbCrLf &amp; &quot;Value=$&quot; &amp; 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 &lt; 5000) Then Exit Do End If Loop MsgBox (&quot;year car is less than $5000 is &quot; &amp; X) End Sub Problem 5 Sub Myprog() Dim A As String, B As String A = InputBox(&quot;enter a word&quot;) If ((Mid(A, 1, 1)) &lt; (Mid(A, 2, 1))) Then MsgBox (&quot;Alphabetical order= YES&quot;) Else MsgBox (&quot;Alphabetical order= NO&quot;) End If End Sub IE 148 Homework #3 Tyler Fox...
View Full Document

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 Right Arrow Icon
Ask a homework question - tutors are online