Microsoft Small Basic

Program Listing: TRB506

List Program

'How to do homework:
'Step 1: Press the Run Button (F5)
'Step 2: Read the name of the Method (Sub) that Failed
'Step 3: Fill in the blank (___) to make it pass
'Step 4: Repeat Until Enlightment
' Do not change anything except the blank (___)

Sub YouCanReadVariables
numberOfDesserts = 5
Homework.CheckAnswer(___ , equals , numberOfDesserts )
EndSub

Sub YouCanSaveVariables
ickynessOfBrothers = ___
Homework.CheckAnswer(ickynessOfBrothers , equals , 10 )
EndSub

Sub YouCanDoMathWithVariables
___ = 3+4
Homework.CheckAnswer(7 , equals , numberOfHarryPotterBooks )
EndSub

Sub YouCanChangeVariables
milkTastiness = 6
addChocolate()
milkTastiness = 10
Homework.CheckAnswer(___ , equals , milkTastiness )
EndSub


Sub VariablesAreSnotStuck
boogers = 4
blowNose()
boogers = ___
Homework.CheckAnswer(0 , equals , boogers )
EndSub

Sub YouCanAddToAVariable
age = 11
celebrateBirthday()
age = age + ___
Homework.CheckAnswer(age , equals , 12 )
EndSub

Sub YouCanSubtractFromAVariable
amountOfHomework = 3
amountOfHomework = amountOfHomework - ___
Homework.CheckAnswer(amountOfHomework , equals , 0 )
EndSub

Sub YouCanMultiplyVariables
volumeOfMyVoice = 2
volumeMyMomHears = volumeOfMyVoice * 5
Homework.CheckAnswer( ___ , equals , volumeMyMomHears )
EndSub

Sub YouCanDivideVariables
inches = 36
feet = ___ / 12
Homework.CheckAnswer( feet , equals , 3 )
EndSub

Sub YouCanSetVariablesInOtherMethods
CreateXmasList()
Homework.CheckAnswer( ___ , equals, xmasList)
EndSub

Sub CreateXmasList
xmasList = "hippopotamus"
EndSub

Sub YouCanCallMethodsByName
____()
Homework.CheckAnswer( bedPost , equals, "gum")
EndSub

Sub PrepareForBed
bedPost = "gum"
EndSub

Sub YouCanChooseTheMethodNames
____()
Homework.CheckAnswer( thingsThatSmellFunny , equals, "feet")
' You need to change two blanks for this problem
EndSub

Sub _____
thingsThatSmellFunny = "feet"
EndSub

Sub ChangingVariableInOtherMethods
heigth = 4
Grow()
Homework.CheckAnswer( heigth , equals, 5)
EndSub

Sub Grow
heigth = heigth + ___
EndSub



'-------- Ignore the following, It's needed to run the homework -------
'
'
'
'
'
'
___ = "You need to fill in the blank ___"
equals = "="
Homework.StartHousesHomeworkAt = addChocolate
numberOfHarryPotterBooks = "You need to fill in the blank ___"
Sub addChocolate
EndSub
Sub celebrateBirthday
EndSub
Sub blowNose
EndSub

Sub ____
EndSub