In: Computer Science
Imports System
Namespace order
Public Class Order
Public Shared Sub Main(ByVal args() As String)
Console.WriteLine("Enter name")
Dim name As String
name = Console.ReadLine() 'taking name as input
Console.WriteLine("Enter order total")
Dim order As String
order = Console.ReadLine()
Dim order_Conflict as Integer = Convert.ToInt32(order)'taking order total
'condition to give discount based on order total
If order_Conflict < 500 Then
Console.WriteLine("Name: " & name)
Console.WriteLine("Price: $" & order_Conflict)
End If
If order_Conflict >= 500 AndAlso order_Conflict < 1000 Then
Console.WriteLine("Name: " & name)
Console.WriteLine("Price: $" & (order_Conflict - (order_Conflict * 0.05)))
End If
If order_Conflict >= 1000 Then
Console.WriteLine("Name: " & name)
Console.WriteLine("Price: $" & (order_Conflict - (order_Conflict * 0.10)))
End If
End Sub
End Class
End Namespace
Note:- Please comment down if you face any problem. :)