[Senseika]

If your wondering why I made this topic an "Advanced" Topic, it is because a lot of people don't know their 0s and 1s. They Uberfail at math. Even if they majored in math in college.

Option Explicit

Public Idiot As Boolean
Public NormalPerson As Boolean
Public OKPerson As Boolean
Public Determine As String

Sub Form_Load()
Determine = InputBox("In binary, what is the value of 111111111111111?", "Binary Joke")
If Determine = "32767" Then
	NormalPerson = True
	Idiot = False
	OKPerson = False
	MsgBox "Your normal. You earned a 100. Yes a 1 followed by two big fat goose eggs. The answer is 32,767. Your answer was " & Determine & ".", vbOKOnly, "Your a Normal Person"
	Unload Me
ElseIf Determine = "32768" Then
	NormalPerson = False
	Idiot = False
	OKPerson = True
	MsgBox "Your OK. You earned a 75. Yes a 7 followed by a 5, also the value of 3 quarters. The answer is 32,767. Not " & Determine & ". But you were close.", vbOKOnly, "Your an OK Person"
	Unload Me
Else
	NormalPerson = False
	OKPerson = False
	Idiot = True
	MsgBox "You Fail. You earned a 0. Yes a big fat goose egg. The answer is not going to reveal itself you know. Not " & Determine & ".", vbOKOnly, "Your a Binary Idiot"
	Call Form_Load
End If
End Sub

Thats basically the entire code. I want suggestions on how to improve it. I do not want flame. Also, judge this on a scale of 1 - 10, 10 being the most, on how much pain this program caused your head.

[Winstinology]

Needs more cowbell..

[snoj]

The program is flawed since the real answer is "11001010000111000010010010011101111000111000111".

[Senseika]

snoj, on 12 Jan, 2009 - 07:11 PM, said:

The program is flawed since the real answer is "11001010000111000010010010011101111000111000111".

translate it to regular numbers. i have the right answer. positive integers in binary cna only go up to 32767. negative integers can go to -32768,