Lab 7.1
Module main ()
Declare String keepGoing = “y”
While keepGoing == “y”
Declare String clientName = “ “
Declare Real feetUTP = 0
Declare Real subTotal = 0
Declare Real taxCost = 0
Declare Real totalCost = 0
Call inputData (feetUTP, clientName)
Call calcCosts (feetUTP, subTotal, taxCost, totalCost)
Call displayBill (clientName, totalCost) End While
End Module

Lab 7.2

Lab 7.3
Module Main()
Declare integer toPower = 2
Declare integer number = 2
Declare integer counter = 0
While Counter < 7
Set toPower = 2^Number
Display 2 to the power of, “number,” is,”toPower,”
Counter += 1
Number += 1
End While
End Module

Lab 7.4

Lab 7.5
Module Module1 Sub Main() Dim keepGoing As String = "yes" Do While keepGoing = "yes" pingMe() Console.Write("Enter yes if you want to run program again") keepGoing = Console.ReadLine() Loop Console.WriteLine("Press enter to continue. ..") Console.ReadLine() End Sub Sub pingMe() Dim counter As Integer = 5 Do While counter > 0 Console.WriteLine("Count down . ") counter = counter - 1 Loop Console.WriteLine("Now ping. ..") Shell("Ping.exe 127.0.0.1", , True) Console.Out.WriteLine(" ") End Sub
End Module

Lab 7.6
Module Module1 Sub Main() Dim keepGoing As String = "y" While keepGoing = "y" Call displayPower() Console.WriteLine("Would you like to ping again? If so type y.") keepGoing = Console.ReadLine() End While End Sub Sub displayPower() Dim counter As Integer = 1 Dim toPower As Integer = 0 Dim number As Integer = 2 While counter <= 7 toPower = 2 ^ number Console.WriteLine("2 to the power of " & number & " = " & toPower) counter = counter + 1 number = number + 1 End While End Sub
End Module