Code Modernization Analysis

       IDENTIFICATION DIVISION.
       PROGRAM-ID. CALC-INTEREST.
       DATA DIVISION.
       WORKING-STORAGE SECTION.
       01 WS-PRINCIPAL    PIC 9(10)V99.
       01 WS-RATE          PIC 9(2)V9(4).
       01 WS-YEARS         PIC 9(2).
       01 WS-INTEREST      PIC 9(10)V99.
       01 WS-TOTAL  ...

      PROGRAM TRAJECTORY
      IMPLICIT NONE
      REAL*8 :: V0, THETA, G, T, X, Y
      REAL*8 :: DT, TMAX
      PARAMETER (G = 9.81D0)

      V0 = 100.0D0
      THETA = 45.0D0 * 3.14159265D0 / 180.0D0
      DT = 0.01D0
      TMAX = 20.0D0
      T = 0.0D0

      DO WHILE (T .LE. TMAX)
        X = V...

Private Sub cmdCalculate_Click()
    Dim dblSubtotal As Double
    Dim dblTax As Double
    Dim dblTotal As Double
    Dim strState As String

    dblSubtotal = CDbl(txtSubtotal.Text)
    strState = cboState.Text

    Select Case strState
        Case "OH"
            dblTax = dblSubtotal * 0.0575
 ...