Module Module1
''' <summary>
''' Main function
''' </summary>
''' <remarks></remarks>
Sub Main()
'variables
Dim name As String
Dim amount As Double
Dim commission As Double
'promt user to enter name of sales
Console.Write("Enter name of sales: ")
name = Console.ReadLine()
'promt user to enter sales amount
Console.Write("Enter sales amount: ")
amount = Double.Parse(Console.ReadLine())
'Commission is 7% of sales amount if sales
If (amount > 60000) Then
commission = amount * 0.07
Else
' amount exceed Ringgits 60000 otherwise it is 5% tax @
commission = amount * 0.05
'1% is to be deducted on commission obtained.
commission -= commission * 0.1
End If
'show result
Console.WriteLine("Commission for this product " + name + " = $" + commission.ToString())
'Delay
Console.ReadLine()
End Sub
End Module
Comments
Leave a comment