I'm not sure if I did this right...
Problem: Using VB.NET write a console application to implement the New Car Price Calculator.
Options available for Universal Motor's vehicles:
Engine Purchase Code Price
6 cylinder S $150
8 cylinder E $475
Diesel D $750
Interior Trim Purchase Code Price
Vinyl V $50
Cloth C $225
Leather L $800
Radio Purchase Code Price
AM/FM Radio C $100
AM/FM/CD/DVD P $400
Module Module1
Dim EngineChoice As String = ""
Dim Sixcylinder As Integer = 0
Dim Eightcylinder As Integer = 0
Dim Diesel As Integer = 0
Dim InteriorChoice As String = ""
Dim Vinyl As Integer = 0
Dim Cloth As Integer = 0
Dim Leather As Integer = 0
Dim RadioChoice As String = ""
Dim C As Integer = 0
Dim P As Integer = 0
Dim ShippingCharge As Integer = 0
Dim DealerCharge As Integer = 0
Dim BasePrice As Integer = 0
Dim intSellingPrice As Integer = 0
Dim Response As String = ""
Dim MessageBox.Show As String =
Sub Main()
MessageBox.Show("Welcome to New Car Payment Calculation!")
Console.WriteLine("Enter the base price:")
Response = Console.ReadLine()
Console.WriteLine("Enter EngineChoice for your vehicle:")
Response = Console.ReadLine()
EngineChoice = Convert.ToInt32(Response)
If EngineChoice = Sixcylinder Then
Console.WriteLine(150)
ElseIf EngineChoice = Eightcylinder Then
Console.WriteLine(475)
ElseIf EngineChoice = Diesel Then
Console.WriteLine(750)
Console.WriteLine("Enter InteriorChoice for your vehicle:")
Response = Console.ReadLine()
InteriorChoice = Convert.ToInt32(Response)
If InteriorChoice = Vinyl Then
Console.WriteLine(50)
ElseIf InteriorChoice = Cloth Then
Console.WriteLine(225)
ElseIf InteriorChoice = Leather Then
Console.WriteLine(800)
Console.WriteLine("Enter the RadioChoice for your vehicle:")
Response = Console.ReadLine()
Response = Convert.ToInt32(Response)
If RadioChoice = C Then
Console.WriteLine(100)
ElseIf RadioChoice = P Then
Console.WriteLine(400)
BasePrice = 800
ShippingCharge = 500
DealerCharge = 175
intSellingPrice = BasePrice + EngineChoice + InteriorChoice + RadioChoice + ShippingCharge + DealerCharge
Console.WriteLine("The total selling price for your vehicle is $" + intSellingPrice)
End If
End If
End If
End Sub
End Module