Magic Number 1089

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Magic Number 1089

Logged in as: Guest

arrSession:exec spGetSession 2,16,64982

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Magic Number 1089
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Magic Number 1089 - 10/11/2008 11:31:27 PM

TomRiddle

Posts: 188
Score: 4
Joined: 2/7/2008
Status: offline

Magic Number 1089

Follow instructions in script, and magic number 1089 will appear.

'Script by Tomriddle 2008
'1089.vbs

strNumber=inputbox("Pick a 3-digit number where the first and last digits differ by 2 or more...", 1098, 123)
if strNumber="" then msgbox "Quiting", 16, "1089":wscript.quit
if IsNumeric(strNumber) then
   if len(strNumber)<>3 then msgbox "number not 3 digits long", 16, "1089":wscript.quit
   if instr(strNumber, ".") then msgbox "number must not contain decimal", 16, "1089":wscript.quit
   if abs(mid(strNumber, 1, 1)-mid(strNumber, 3, 1))<2 then
      msgbox "The first and last digits did not differ by 2 or more.", 16, "1089":wscript.quit
   end if

strNumberRev=strReverse(strNumber)
   msgbox "Consider the reverse number, obtained by reading it backwards."&vbcrlf&"Reverse of "&strNumber&" is "&strNumberRev, 64, "1089"

if strNumberRev>strNumber then 
      StrNewNumber=strNumberRev-strNumber:strFormular=strNumberRev&"-"&strNumber
   else
      StrNewNumber=strNumber-strNumberRev:strFormular=strNumber&"-"&strNumberRev
   end if

msgbox "Subtract the smaller of these two numbers from the larger one."&vbcrlf&strFormular&"="&StrNewNumber, 64, "1089"
   StrNewNumberRev=strReverse(StrNewNumber)
   msgbox "Add the result to its own reverse."&vbcrlf&StrNewNumber&"+"&StrNewNumberRev&"="&StrNewNumber+StrNewNumberRev, 64, "1089"
   Msgbox "Answer is always equal to 1089.", 48, "1089"
else
   msgbox "Not a 3 digit number", 16, "1089"
end if