Unit 7 lab
Short Answer

Module main ()
// Declare variable
Declare String clientName
Declare Real feetUTP=0
Declare Real subtotal=0
Declare Real totalCost=0
Declare String keepgoing=“y”

Display “Do you want to make a call?” Type y for yes.
Input keepgoing
While keepgoing == “y” // Module Calls Call Call Call

End Module

7.2

7.3
// Declare loop control variable
Declare Integer toPower=2
Declare Integer number=2
Declare Integer counter=0
Do
ToPower=number^2 Display “2 to the power of”, number, “is” toPower Counter=counter+1 Number=number+1 While counter < 8
Lab7.4
Declare integer counter = 1
Declare integer toPower = 2
Declare integer number = 2 counter < 7
Display “2 to the power of”, number, “is”, toPower counter = counter + 1
False
toPower = 2 ^ number True Lab7.5
Module Module1
Sub Main()
Dim keepGoing As Integer = 1
Dim Count As Integer = 5 pingMe() openWebsite() finalOutput() While Count > 0
Console.WriteLine("Count down ..." & Count)
Count -= 1
End While
Console.ReadLine()
End Sub
Sub pingMe()
Shell("Ping.exe 127.0.0.1", , True)
End Sub
Sub openWebsite()
Dim myTargetURL As String = "http://www.microsoft.com"
System.Diagnostics.Process.Start(myTargetURL)
End Sub
Sub finalOutput()
Console.WriteLine("Complete and explanation of what this program does.")
Console.WriteLine("The Shell function and ping.exe check for a response from the web server")
Console.WriteLine("Dim is how we declare a variable.")
Console.WriteLine("Press any key to continue...")
Console.ReadLine()
End Sub
End Module

Lab7.6
Module Module1
Sub Main()
Dim Counter As Integer = 0
Dim toPower As Integer = 2
Dim Number As Integer = 2
While Counter < 7 toPower = 2 ^ Number
Console.WriteLine("2 to the power of " & Number & " is " & toPower)
Counter += 1
Number += 1
End While
Console.ReadLine()
End Sub
End Module