Computer Programming Concepts and Visual Basic David I. Schneider

SOLUTION:
In the following program, the condition is Val(txtFirstNum.Text) > Val(txtSecond Num.Text), and each
action consists of a single assignment statement. With the input 3 and 7, the condition is false, and so the
second action is taken.
Object Property Setting
frmMaximum Caption Maximum
lblFirstNum Caption First Number
Alignment Right Justify
txtFirstNum Text (blank)
lblSecondNum Caption Second Number
Alignment Right Justify
txtSecondNum Text (blank)
cmdFindLarger Caption Find Larger Number
picResult
Private Sub cmdFindLarger_Click()
Dim largerNum As Single
picResult.Cls
If Val(txtFirstNum.Text) > Val(txtSecondNum.Text) Then
largerNum = Val(txtFirstNum.Text)
Else
largerNum = Val(txtSecondNum.Text)
End If
picResult.Print “The larger number is”; largerNum
End Sub
[Run, type 3 and 7 into the text boxes, and press the command button.]
EXAMPLE 2
Write a program that requests the costs and revenue for a company and displays the message “Break even”
if the costs and revenue are equal or otherwise displays the profit or loss.
SOLUTION:
In the following program, the action following Else is another If block.
Object Property Setting
frm5_2_2 Caption Profit/Loss
lblCosts Caption Costs
Alignment Right justify
txtCosts Text (blank)
lblRev Caption Revenue
Alignment Right justify
txtRev Text (blank)
cmdShow Caption Show Financial Status
picResult
Private Sub cmdShow_Click()
Dim costs As Single, revenue As Single, profit As Single, loss As Single
If Blocks 107