This is what i have so far. It isnt working very well. i feel like im on the right track.
Code:
'Declare variables for the speed, speed limit & vehicle type
Dim Speed_Limit As Integer
Dim Speed As Integer
Dim speeding As Integer = (Speed - Speed_Limit)
Dim vehicle_type As String = A, B, C
'Ask user to input the speed and speed limit
Console.WriteLine("Please Enter the speed limit")
Speed_Limit = Console.ReadLine()
Console.WriteLine("Please enter the drivers speed")
Speed = Console.ReadLine()
'tell user to enter a vehicle class (A-C)
Console.WriteLine("Please choose your vehicle class:")
Console.WriteLine("Light Vehicle (A)")
Console.WriteLine("Mid range truck (B)")
Console.WriteLine("Heavy vehicle (C)")
'input the vehicle class into the program
vehicle_type = Console.ReadLine()
'Select case for vehicle type and nested If and else statements
Select Case vehicle_type
Case A
If (speeding > 5) And (speeding <= 10) Then
Console.WriteLine("Driver will receive 4 demerit points and a $121 fine")
ElseIf (speeding <= 20) And (speeding >= 10) Then
Console.WriteLine("Driver will receive 4 demerit points and a $280 fine")
ElseIf (speeding <= 30) And (speeding >= 20) Then
Console.WriteLine("Driver will receive 4 demerit points and a $481 fine")
ElseIf (speeding <= 45) And (speeding >= 30) Then
Console.WriteLine("Driver will receive 5 demerit points and a $920 fine")
ElseIf speeding > 45 Then
Console.WriteLine("Driver will receive 6 demerit points and a $2482 fine")
Else
Console.WriteLine("Driver was obeying the law")
End If
Console.ReadKey()
End Select
End Sub
End Module