Module Module1

Sub Main()

Dim mobileProvider As Integer = 0 Dim dataOption As Integer = 0 Dim dataPackage As Boolean = True

Call inputOption(mobileProvider, dataOption, dataPackage) Console.WriteLine() Call displayProvider(mobileProvider) Call displayOption(mobileProvider, dataPackage) Console.ReadLine()

Console.WriteLine(" Press Enter To Continue ") Console.ReadLine()

End Sub

Sub inputOption(ByRef mobileProvider As Integer, ByRef dataOption As Integer, ByRef dataPackage As Boolean)

Console.Write(" Enter 1 for ATT, 2 for Sprint, and 3 for Verizon ") mobileProvider = Console.ReadLine() Console.WriteLine() Console.WriteLine(" Enter 1 If you want Data Package, or 2 If you do not ") dataOption = Console.ReadLine() Console.WriteLine() If dataOption = 1 Then dataPackage = True Else : dataPackage = False End If

End Sub Sub displayProvider(ByVal mobileProvider As Integer) Select Case mobileProvider Case 1 Console.WriteLine(" You selected ATT ") Case 2 Console.WriteLine(" You selected Sprint ") Case 3 Console.WriteLine(" You selected Verizon ")

End Select End Sub

Sub displayOption(ByVal mobileProvider As Integer, ByVal dataPackage As Boolean) If mobileProvider = 1 And dataPackage = True Then Console.WriteLine(" with the Data Package ") ElseIf mobileProvider = 1 And dataPackage = False Then Console.WriteLine(" without the Data Package ") ElseIf mobileProvider = 2 And dataPackage = True Then Console.WriteLine(" with the Data Package ") ElseIf mobileProvider = 2 And dataPackage = False Then Console.WriteLine(" without the Data Package ") ElseIf mobileProvider = 3 And dataPackage = True Then Console.WriteLine(" with the Data Package ") ElseIf mobileProvider = 3 And dataPackage = False Then Console.WriteLine(" without the Data Package ") End If

Console.WriteLine() Console.WriteLine(" Thank You for using our services and for selecting your service provider ") Console.WriteLine() End Sub

End Module