Question

Visual Basic Code.

224 Chapter 5 General Procedures In Exercises 14 and 15, rewrite the program using a Function instead of a Sub procedure. 14. Private Sub btnCalculate Click (... Handles btnCalculate.Click Dim firstNumber, secondNumber As Integer firstNumber = 4 Triple (firstNumber, secondNumber) txtResult. Text = CStr (secondNumber) End Sub Sub Triple (firstNumber As Integer, ByRef secondNumber As Integer) secondNumber = 3 * firstNumber End Sub 15. Private Sub btnCalculate Click(.) Handles btncalculate.Click Dim price, salesTaxRate, cost As Decima price = 29 . 95D salesTaxRate = 0。05D Findcost (price, salesTaxRate, cost) txtResult . Text cost. ToString ( "C" ) End Sub As Decimal) Sub FindCost (price As Decimal, salesTaxRate As Decimal, ByRef cost cost = price * (1 + salesTaxRate) End Sub

Answer 1

14.

Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
Dim firstNumber, secondNumber As Integer
firstNumber = 4
secondNumber = Triple(firstNumber, secondNumber)
txtResult.Text = CStr(secondNumber)

End Sub
Function Triple(firstNumber As Integer, ByRef secondNumber As Integer)
secondNumber = 3 * firstNumber
Triple = secondNumber 'function does return a value ie secondNumber unlike sub procedure
End Function
End Class

$Fle Edit View Project Build Debug Team Tools Test Analyce WindowHep ign in any CPU トCotirut Process 12548 FunctionDem.shost.eycle Ee Ted FomlvbiX Formab [Design xpio Form Triple Private Sub bcalculateClick(sender As object, e As Eventargs) Handles btncalculate.Click Search Solton Explorer (Col. Din firstlumber, secondtumber As Integer firstlurber4 secondiumber Triple(firstmber, seconduber txtResult.Text·CStr (seconduter) Selution FunctionDemo (1 project My Project References Appconfig Ferm End Sub Function Triplefirstluber As Integer, ByRef secondvumber As Intege-) seconduber 3firsthumber Triple seconFom End Function End Class Calcuade 00% Output outpat froms The thread 8298 has exited with code 8 (exe) FunctionDeso.vshost.exe (CLR 4.8.38319: Functiondeno.vshost exe): Loaded CNOOWs dcrosoft.NetLasseebly Gc 54 System. Configuration v4.e-4.e.e.e be3f5f711a5Ba3a Systes. Configuration.dll. Skipped lcading symbols. Modu t.exe (CLR 4.8.38319: FunctLonDeno.vshost exe) Leeded c: sivisual studio 2015 Projects FunctionDeno FunctionDeno\binyDebugi Function.exe Symbols loaded Function nomost exe CLR 4.8.38319 Function mo vs ost exe Leaded C: NT O S crosoft Netiasse blyiSC SILSystem Runt Re ot ng 4.อ 4 อ.อ.อ b77a5c56293eensyste Auti Re ting dll pped loading syndels Solution Explorer 224AM OType here to search 0$

15.

Public Class Form1
Private Sub btnCalculate_Click(sender As Object, e As EventArgs) Handles btnCalculate.Click
Dim price, salesTaxRate, cost As Decimal
price = 29.95D
salesTaxRate = 0.05D
cost = FindCost(price, salesTaxRate, cost)

txtResult.Text = cost.ToString("C")

End Sub

Function FindCost(price As Decimal, saleTaxRate As Decimal, ByRef cost As Decimal)
cost = price * (1 + saleTaxRate)
FindCost = cost ''function does return a value ie cost unlike sub procedure
End Function
End Class