PT1420T
LAB 5.1 – 5.5
Lab 5.1 attAverage >= verizonAverage TRUE tmobileAverage == 868 TRUE verizonAverage < sprintAverage FALSE sprintAverage != attAverage TRUE
Lab 5.2
Expected Output
Both have average download rates over 800
Nothing
AT&T
Lab 5.3
Main Module()
//Declare variables
Declare Integer testScore = 0
Declare String category = “NO VALUE ”
Declare String interview = “NO VALUE ”
//Make Module calls and pass necessary variables
Call gettestScore()
Call employCat()
Call interviewPoss()
Call displayInfo()
End Main
Module gettestScore(Integer Ref testScore)
//Allows the user to enter the test score
Display “Please input test score:”
Input gettestScore
Display (“The interviewee’s test score is:” , gettestScore)
End Module
Module employCat (Integer gettestScore, String Ref category)
//Determines the employment category
If gettestScore >= 85 Then
Category = “Definitely”
Else
If gettestScore > 70 AND testScore =< 84 Then
Category = “Likely”
Else
If gettestScore > 60 AND testScore =< 69 Then
Category = “Maybe”
Else
If gettestScore =< 59 Then
Category = “No”
End If
End Module
Module interviewPoss(Integer gettestScore, String Ref interview)
//Determine if they qualify for an interview based on their test score
//Similar to if the score is less than 60, then interview is “No”
//Otherwise, interview is “Yes”
If gettestScore < 60
Interview = “No”
Else
Interview = “Yes”
End If
End Module
Module displayInfo(Integer gettestScore, String category, String interview)
//Displays the gettestScore, category, and interview variables
Display “Test score is:” gettestScore
Display “Category is:” category
Display “Interview is:” interview
End Module
Lab 5.4

The test score is 90
The employment category is Definite
Interview? Yes
----Run complete. 27 symbols evaluated.----

Lab 5.5
Module Module1
Sub Main() 'declare your 3 variables similar format as 'Dim variablName As DataType = 0 (or ""if its a string) Dim category As String = "NO VALUE" Dim testScore As Integer = 0 Dim interview As String = "NO VALUE" 'call your 4 modules and pass necessary variables similar'format such as 'moduleName(arguments) getScore(testScore) employCat(testScore, category) interviewPoss(interview, testScore) displayInfo(testScore, category, interview) 'add this to cause a pause Console.WriteLine("Press enter to continue...") Console.ReadLine() End Sub Sub getScore(ByRef testScore As Integer) 'add the code to input testScore Console.WriteLine("What is the candidate's score?") testScore = Console.ReadLine()
End Sub Sub employCat(ByVal testScore As Integer, ByRef category As String) If testScore < 60 Then category = "No" ElseIf testScore < 70 Then category = "Maybe" ElseIf testScore < 80 Then category = "Likely" Else category = "Definite" End If End Sub Sub interviewPoss(ByRef interview As String, ByVal testScore As Integer) If testScore < 60 Then interview = "No" Else interview = "Yes" End If End Sub Sub displayInfo(ByVal testScore As Integer, ByVal interview As String, ByVal category As String) Console.WriteLine("Score " & testScore) Console.WriteLine("Employment category " & category) Console.WriteLine("interview Possibility " & interview) End Sub
End Module