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 SubEnd Module
Comments