'CIS121 'Lab 14; part II expansion on L14magicEightBall.vbs 'Magic 8 Ball 'Answers the user's life questions. 'Author: Ted DeJong Randomize ' "seeds" the random process question = InputBox("Ask me a question and ill give you an answer.") randomNum = Int(10 * Rnd + 1) 'Rnd generates a number from 0 to 1 ' The rest of this changes it to an ' integer from 1-3 inclusive Select Case randomNum Case "1" MsgBox "Oh, yeah, sure thing buddy." Case "2" MsgBox "I think so. Dang, I hope so!" Case "3" MsgBox "You can't be serious." Case "4" MsgBox "Ask me again in a minute." Case "5" MsgBox "Definitely. Do it now." Case "6" MsgBox "No; what are you crazy?" Case "7" MsgBox "I'm already tired of your stupid questions!" Case "8" MsgBox "Probably so." Case "9" MsgBox "Yeah, sure, when pigs fly." Case "10" MsgBox "What makes you think I have an answer for that?" Case Else MsgBox "Error: Somehow this number was generated: " & randomNum End Select