Module Module1 Const Sale As Decimal = 100 Const TaxRate As Decimal = 0.04D Function GetTotalSale() As Decimal Return Sale * (1 + TaxRate) End Function Sub Main() Dim TotalSale As Decimal = GetTotalSale() Console.WriteLine(TotalSale) End Sub End Module
104.00