Imports System, Microsoft.VisualBasic

​

'Misael Rodriguez

'Decmeber 9th, 2020

'Car models Program

​

​

Public Module Module1

    Public Sub Main()

        Dim modelNumber As Integer

        Dim message As String

        console.WriteLine("What is your car model number")

        modelNumber=console.ReadLine()

        Select Case modelNumber

        Case 119, 179, 184, 221

            message="Defective:Broken horn. Please have it fixed."

        Case 189 to 195

            message="Defective:No brakes. Please have it fixed."

        Case is > 870

            message="Defective:Missing wheel. Please have it fixed."

        Case Else

            message="Your car is not defective."

        End Select

        console.WriteLine(message)

    End Sub

End Module

​