# Program Boolean Test

Topics: Infinity, Fuck, Number Pages: 3 (411 words) Published: August 28, 2013
option explicit
dim A, B, C, result1, result2, result3, result4, result5, result6, result7, result8, count, count1, bolA, bolB, bolC, X, WshShell

'count1=1

'Do
msgbox "Solve for x in Ax^2 + Bx + C = 0"

'loop if value is null??

Do
A=inputbox("Enter Variable A","Equation","Variable A")
bolA = Isnumeric(A)
If (BolA = false) then
msgbox "Variable A is invalid"
end if
loop until bolA = true

Do
B=inputbox("Enter Variable B","Equation","Variable B")
bolB=Isnumeric(B)
If (bolB=false) then
msgbox "Variable B is invalid"
end if
loop until bolB = true

Do
C=inputbox("Enter Variable C","Equation","Variable C")
bolC=Isnumeric(C)
If (bolC=false) then
msgbox "Variable C is invalid"
end if
loop until bolC = true

result1=(B*B)-(4*A*C)

if (A+B+C=0) then
msgbox "You're a fool and this program hates you!!!"

elseif (B+C=0) then
msgbox "Congratulations, you have succeeded in pretty much dividing by zero and created an infinite number." +chr(13) +chr(13) + "Reality has just imploded on itself & the universe says fuck you muchly."

elseif (A+C=0) then
msgbox "Congratulations, you have succeeded in pretty much dividing by zero and created an infinite number." +chr(13) +chr(13) + "Reality has just imploded on itself & the universe says fuck you muchly."

elseif (C=0) then
msgbox "You just mind fucked me." +chr(13) +chr(13) +" x = 0"

elseif (A+B=0) then
result7=C
msgbox "You IDIOT, x obviously = " +Cstr(C)

elseif (A=0) then
result6= C/B
msgbox "This is a linear equation"+chr(13) +chr(13) +Cstr(B)+"x + ("+Cstr(C)+") = y" +chr(13) +chr(13)+"When y = 0, variable x = " +Cstr(result6)

elseif (result1=0) then
result4=(-B)/(2*A)
msgbox "The equation you have entered is:" +chr(13)+chr(13)...