‘Tiffany Fong

‘ Timothy Christian High School

‘Intermediate 3, Contest 1

Private strsystem As String

Private strtopratio As String

Private strbottomratio As String

Private strinput As String

Option Explicit

Private Sub cmdend_Click()

End

End Sub

Private Sub Form_Load()

strtopratio = 1

strbottomratio = 1

strsystem = InputBox("Enter System")

If strsystem = "H" Or strsystem = "h" Then

strinput = 1

Do While strinput <> 0

strinput = InputBox("Enter Whorls occured")

If strinput = 1 Then

strbottomratio = strbottomratio + 16

ElseIf strinput = 2 Then

strtopratio = strtopratio + 16

ElseIf strinput = 3 Then

strbottomratio = strbottomratio + 8

ElseIf strinput = 4 Then

strtopratio = strtopratio + 8

ElseIf strinput = 5 Then

strbottomratio = strbottomratio + 4

ElseIf strinput = 6 Then

strtopratio = strtopratio + 4

ElseIf strinput = 7 Then

strbottomratio = strbottomratio + 2

ElseIf strinput = 8 Then

strtopratio = strtopratio + 2

ElseIf strinput = 9 Then

strbottomratio = strbottomratio + 1

ElseIf strinput = 10 Then

strtopratio = strtopratio + 1

ElseIf strinput = 0 Then

End If

Loop

ElseIf strsystem = "A" Or strsystem = "a" Then

strinput = 1

Do While strinput <> 0

strinput = InputBox("Enter Whorls occured")

If strinput = 1 Then

strtopratio = strtopratio + 16

ElseIf strinput = 2 Then

strtopratio = strtopratio + 8

ElseIf strinput = 3 Then

strtopratio = strtopratio + 4

ElseIf strinput = 4 Then

strtopratio = strtopratio + 2

ElseIf strinput = 5 Then

strtopratio = strtopratio + 1

ElseIf strinput = 6 Then

strbottomratio = strbottomratio + 16

ElseIf strinput = 7 Then

strbottomratio = strbottomratio + 8

ElseIf strinput = 8 Then

strbottomratio = strbottomratio + 4

ElseIf strinput = 9 Then

strbottomratio = strbottomratio + 2

ElseIf strinput = 10 Then

strbottomratio = strbottomratio + 1

ElseIf strinput = 0 Then

End If

Loop

End If

MsgBox (strtopratio & " / " & strbottomratio)

End Sub