Microsoft Small Basic

Program Listing: SXG499-1
'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 NumbersDoNotNeedQuotes
Homework.CheckAnswer(___ , equals , 42 )
EndSub

Sub DefaultWidthForTheTortoise
Homework.CheckAnswer( ___ , equals , Tortoise.GetPenWidth() )
EndSub

' Question: What have you learned from the last two questions?
' Answer:

Sub StringsNeedQuotes
Homework.CheckAnswer( ___ , equals , "Green" )
endsub

Sub StringsCanIncludeSpaces
Homework.CheckAnswer( ___ , equals , "This is a string" )
endsub

' Question: How are strings different than numbers?
' Answer:

Sub DefaultColorForTheTortoise
Homework.CheckAnswer( ___ , equals , Tortoise.GetPenColor())
EndSub

Sub ChangingThePenWidthTo5
Tortoise.SetPenWidth(___)
Homework.CheckAnswer(Tortoise.GetPenWidth() , equals , 5 )
EndSub

Sub ChangingThePenColorToGreen
Tortoise.SetPenColor(___)
Homework.CheckAnswer(Tortoise.GetPenColor() , equals , "Green")
EndSub

' Question: In which of the above were you asking the tortoise for some information, and in which were you telling the tortoise to do something?
' Answer:

Sub MovingTheTortoise100Pixels
start = Tortoise.GetY()
Tortoise.Move(___)
Homework.CheckAnswer( Tortoise.GetY() , equals , start - 100 )
'Hint: make sure you read the name of this method
endsub

Sub TheTortoiseTurns21
Tortoise.Turn(___)
Homework.CheckAnswer(Tortoise.GetAngle() , equals , 21 )

EndSub

Sub TheTortoiseTurns15Twice
Tortoise.Turn(___)
Tortoise.Turn(___)
Homework.CheckAnswer(Tortoise.GetAngle() , equals , 30 )
EndSub

' Question: What where some of the things you told the tortoise to do?
' Answer:

' Question: What else could you tell the tortoise to do?
' Answer:

Sub HowFastCanTheTortoiseGo
Tortoise.SetSpeed(___)
Homework.CheckAnswer( Tortoise.GetSpeed() , equals , topSpeed )
'Hint: Click SetSpeed then read the documentation on the left ----->
EndSub

Sub AssigningVariables
myFavoriteNumber = 101
Homework.CheckAnswer( ___ , equals , myFavoriteNumber )
EndSub

Sub CombiningNumbers
age = 3 + 4
Homework.CheckAnswer( ___ , equals , age )
EndSub

Sub CombiningText
name = "Peter" + " " + "Pan"
Homework.CheckAnswer( ___ , equals , name )
EndSub

' Question: What the adding do to numbers? What does it do to text?
' Answer:

Sub CombiningTextAndNumbers
name = "Henry The " + 8
Homework.CheckAnswer( ___ , equals , name )
EndSub

' Question: If you add text and numbers what happens?
' Answer:

Sub CombiningTextInALoop
sound = "A"
For i = 1 To 3
sound = sound + "H"
EndFor
Homework.CheckAnswer( ___ , equals , sound )
EndSub

' Question: Why did this happen?
' Answer:

'For the Following For Loops, ONLY USE NUMBERS!!!!

Sub ForLoopsEndAtTheEnd
numbers = "@"
For i = 1 To ___
numbers = numbers + i
EndFor
Homework.CheckAnswer(numbers, equals, "@12345")
EndSub

' Question: What happens to 'i' ?
' Answer:

Sub ForLoopsCanStartAnywhere
answer = "Because "
For i = ____ To 9
answer = answer + i
EndFor
'Question: Why is 7 the most feared number ?
Homework.CheckAnswer(answer, equals, "Because 789")
EndSub

Sub ForLoopsCanSkip
numbers = "@"
For i = 1 To 20 Step ____
numbers = numbers + i + ","
EndFor
Homework.CheckAnswer(numbers, equals, "@1,3,5,7,9,11,13,15,17,19,")
EndSub

Sub ForLoopsCanGoBackwards
numbers = "Countdown: "
For i = 5 To 1 Step ____
numbers = numbers + i
EndFor
Homework.CheckAnswer(numbers, equals, "Countdown: 54321")
EndSub

' Question: How does a for loop work?
' Answer:

'-------- Ignore the following, It's needed to run the homework -------
'
'
'
'
'
'
___ = "You need to fill in the blank ___"
____ = 1
topSpeed = 10
equals = "="
Homework.StartSimpleSquareHomeworkAt = Empty

Sub Empty
EndSub