In the first line of this program, you create a variable that is named j, and you set its value to 1.Then you create a label that is named lineQ: with a colon (:) at the end.In the next line, you tell the computer to display the value of the j variable on the screen.Then you increase the value of the j variable by 1.In the fourth line, you determine whether the value of the j variable is smaller than 10.--If it is, you tell the computer to repeat the lines of code that follow the lineQ: label. In other words, you tell the computer to display the value of the j variable, increase its value by 1, and then determine whether that value is smaller than 10.--If the value of the j variable is not smaller than 10, you tell the computer to continue to the next part of the program (or to stop running the program if no more code exists).Code:j = 1lineQ:TextWindow.WriteLine(j)j = j + 1If j < 10 ThenGotolineQEndIf
Solution:up:If i < 10 thenTextWindow.WriteLine("")TextWindow.Write(“What is the name of a city? ") city = TextWindow.Read()TextWindow.Write(“How warm is that city (in degrees Celsius)? ") temp = TextWindow.Read()TextWindow.Write(“Is it rainy (Y/N)? ") rainy = TextWindow.Read()TextWindow.Write(“Is it windy (Y/N)? ") windy = TextWindow.Read()'Calling subroutinessubtempCount()subrainyCount() subwindyCount()i = i + 1 If i = 10 ThensubOutput()EndIf EndIf Goto up Sub subtempCountIf temp <= 5 ThenColdCount = ColdCount + 1ElseIftemp <= 15 ThenCoolCount = CoolCount + 1 ElseIftemp <= 25 ThenWarmCount = WarmCount + 1 ElseHotCount = HotCount + 1 EndIfEndSubSub subRainyCountIf Rainy = "y" Or Rainy = "Y" ThenRainyCount = RainyCount + 1EndIfEndSubSub subWindyCountIf Windy = "y" or Windy = "Y" thenWindyCount = WindyCount + 1EndIfEndSub Sub subOutputTextWindow.WriteLine("")TextWindow.WriteLine("Number of cold cities: " + ColdCount) TextWindow.WriteLine("Number of cool cities: " + CoolCount) TextWindow.WriteLine("Number of warm cities: " + WarmCount)TextWindow.WriteLine("Number of hot cities: " + HotCount)TextWindow.WriteLine("Number of rainy cities: " + RainyCount)TextWindow.WriteLine("Number of windy cities: " + WindyCount) EndSub
Microsoft® Small Basic Branches and Subroutines Estimated time to complete this lesson: 1 hour
Code Branches and Subroutines In this lesson, you will learn how to: Create subroutines by using Sub and EndSub statements. Branch your code by using Goto statements.
Branching You can instruct the computer to process a line of code out of sequence if you use the Gotostatement. Sometimes, you may want the computer to break the flow and jump to another line of code while the program is running. As you know, the computer runs a program by reading and processing the statements line by line, one at a time.
Branching in Small Basic Programs Let’s examine the Goto statement and its various parts by writing a program. In this program, the lineQ: statement is called a label, which is similar to a bookmark. You can add as many labels as you want and name them whatever you want, as long as you don’t use the same name more than once. The Goto statement instructs the computer to run the statements after the lineQ: label again only if the condition in the If statement is true. output
Branching in Small Basic Programs You can also use the Goto statement to make a program run forever. Let’s see how Goto statements work by adding one to a familiar program. This program will continue to run until someone clicks the Close (X) button in the top-right corner of the text window.
Subroutines in Small Basic Programs When we write programs, we often want the computer to run certain statements more than once. You can avoid writing the same statements over and over if you use subroutines in your programs. By using a subroutine, you can run one or more statements with a single instruction. To create a subroutine, you use the Sub keyword, and then you give the subroutine a specific name. You end the subroutine by using the EndSub keyword. Look at the following subroutine named PrintHour, which opens a text window and displays the current hour.
Subroutines in Small Basic Programs Let’s gain a better understanding of subroutines by writing another program… In this program, we use the Divide( ) statement torun (or “call”) the subroutine Divide from any location within the program. output
Let’s Summarize… Congratulations! Now you know how to: Create a branch by using a Goto statement. Create a subroutine by using a Sub..EndSub statement.
Show What You Know Write a program that opens a text window and then performs the following steps:
Asks the user for the name, temperature, rain status, and wind status of 10 cities.
Uses branching and subroutines to determine and display the total number of: