IE 148 homework 2

IE 148 homework 2 - Problem 3 Sub Myprog() Dim A As String,...

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

View Full Document Right Arrow Icon
Tyler Fox IE 148 Homework 2 Problem 1 Sub Myprog() Dim C As Single, D As Single, X As Single, Y as single Pi = 4 * Atn(1) C = InputBox("A") D = InputBox("B") X = Acos(C / D) * (180 / Pi) X = Round(X, 2) Y = 180 - X 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
Problem 2 Sub Myprog() Dim A As Single, B As Single, C As Single A = InputBox("D") B = A * 61.0237441 C = Round(B, 2) End Sub
Background image of page 2
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: Problem 3 Sub Myprog() Dim A As String, B As String, C As Integer A = InputBox("ENTER A WORD") B = (Len(A)) If (B / 2 = B \ 2) Then MsgBox ("even") Else MsgBox ("Odd") End If End Sub Problem 4 Sub Myprog() Dim Word As String, A As String, x As String Word = InputBox("Enter a Word") A = UCase(Mid(Word, 1, 1)) B = LCase(Mid(Word, 2)) x = (A & B) MsgBox (x) End Sub...
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 / 5

IE 148 homework 2 - Problem 3 Sub Myprog() Dim A As String,...

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