Imports System

'Alexandra Valera

'11/19/21

'Car Models Program

Public Module Module1

    Public Sub Main()

        Dim modelNumber As Integer

        Dim message As String

        Console.WriteLine("Enter model number ")

        modelNumber = Console.ReadLine()

        Select Case modelNumber

            Case 119, 179, 184, 221

                message = "Defective: (error type). Please have it fixed."

            Case 189 To 195 

                message = "Defective: (error type). Please have it fixed."

            Case > 870 

                message = "Defective: (error type). Please have it fixed."

            Case Else 

                message = "Your car is not defective."

        End Select

        Console.WriteLine("" & message)

​

    End Sub

End Module