Computer Programming Concepts and Visual Basic David I. Schneider

picTax.Cls
picTax.Print “Your FICA taxes for the current”
picTax.Print “pay period are “; FormatCurrency(FicaTaxes)
End Sub
Private Function FICA(ytdEarnings As Single, curEarnings As Single) As Single
Dim socialSecurityBenTax As Single, medicare As Single
‘Calculate Social Security benefits tax and Medicare tax
‘for a single pay period in 1999
socialSecurityBenTax = 0
If (ytdEarnings + curEarnings) Val(txtSecondNum.Text) Then
largerNum = Val(txtFirstNum.Text)
Else
largerNum = Val(txtSecondNum.Text)
End If
However, because indenting improves the readability of the block, it is regarded
as good programming style. As soon as you see the word If, your eyes can
easily scan down the program to find the matching End If and the enclosed Else
and ElseIf clauses. You then immediately have a good idea of the size and complexity
of the block.
2. Constructs in which an If block is contained inside another If block are referred
to as nested If blocks.
3. Care should be taken to make If blocks easy to understand. For instance, in Figure
4.2, the block on the left is difficult to follow and should be replaced by the
clearer block on the right.
If Blocks 111