Imports System

'Ruchir Rao'

'11/19/21'

'Car Models Program'

​

Public Module Module1

    Public Sub Main()

        Dim carModel As Integer 'Declare Variables'

        Dim result As String

        Console.WriteLine("Enter car model number:") 'User inputs'

        carModel=console.ReadLine()

        Select Case carModel 'calculations'

            Case 119, 179, 184, 221

                result="Defective:Broken Horn. Please have it fixed"

            Case 189 to 195

                result="Defective:No brake pedal. Please have it fixed"

            Case Is > 870

                result="Defective:Missing Wheel. Please have it foxed"

            Case Else

                result="Your car is not defective"

        End Select

        console.Writeline(" ") 'outputs'

        console.WriteLine(result)

    End Sub

End Module