To Activities

IT 121 -- Activity A13

Algorithms and Macros

Goal:   Write basic algorithms and macros.

1. Construct the variable trace and predict the output:
   Sub Trace1( )
   
   a = 4
   If 2 * a - 5 > 3 Then
   
   b = 3 * a + 1
   a = a + 2
   
   Else
   
   b = 2 * a + 3
   a = a + 3
   
   End If
   ActiveCell.Offset(1, 0).Value = a
   ActiveCell.Offset(2, 0).Value = b
   
   End Sub

   Run Trace1 in Excel to verify your answer.

2. Construct the variable trace and predict the output.
   Enter 5 in the active cell before running the Trace2.
   Sub Trace2( )
   
   x = ActiveCell.Value
   y = ActiveCell.Offset(0, 1)
   While x + y < 100
   
   x = x + 4 * y
   y = 3 * y + 1
   
   Wend
   ActiveCell.Offset(1, 1) = x + y
   
   End Sub

   Run Trace2 in Excel to verify your answer.