(Challenging, partial hints) Exercise 5.3.13

SORT THREE NUMBERS Write a program that requests three different numbers as input and then displays the numbers in order. Use a Procedure named Sort to which the three values are passed ByRef and use a Swap procedure similar to the one in Example 3.

Partial Hints: (Challenging) (Look for keyword xxx to fill in the missing codes)

Private Sub btnDetermine_Click(...) Handles btnDetermine.Click 'Sort three numbers Dim first As Double = CDbl(txtNum1.Text) Dim second As Double = CDbl(txtNum2.Text) Dim third As Double = CDbl(txtNum3.Text) Sort(first, second, third) txtMax.Text = CStr(first) txtMiddle.Text = CStr(second) txtMin.Text = CStr(third) End Sub Sub Sort(ByRef first As Double, ByRef second As Double, ByRef third As Double) ' xxx assume first, second, third = 1 2 3 If first 'xxx fill in the missing codes End Sub

Figure 5.36 Possible outcome of Exercise 13!. Order First number: Second number: Third number: Highest number: Middle number: Lowest number