KURL - 2/25/09

Page 188-189

1. Dim name As Integer
   Const price As Decimal = 20.00D
2. Dim height As Decimal
   Dim weight As Integer
3. Miami = Convert.ToString(city)
4. Dim sales1 As Decimal
   Dim sales2 As Decimal
   Dim totalSales As Decimal
   totalSales = sales1 + sales2
5. Dim salary As Decimal
   salary = salary * 1.5
6. Dim employeeName As Integer
7. N/A
8. N/A
   You will need to enter this in the sub of both buttons. This variable is module level.
9. isConverted = Integer.TryParse(unitsTextBox.text, NumberFormatInfo.CurrentInfo, numberOfUnits)
10. N/A
11. N/A
12. N/A
13. N/A
14. N/A
15. A procedure level variable that retains its value when the procedure ends.

Page 260

1. N/A
2. N/A
3. N/A
4. N/A
5. N/A
6. N/A
7. If carTextBox.Text = "Grand Am" Then carMakeLabel.Text = "Pontiac" Else carMakeLabel.text = ""
   End If
8. If units < 0 Then messageLabel.Text = "Entry error" Else messageLabel.Text = "Valid Number"
   End If
9. If quantity < 10 Then messageLabel.Text = "Reorder" Else messageLabel.Text = "OK"
   End If
10. N/A
11. N/A
12. N/A
13. If hours > 40 Then gross = ((hours - 40) * 1.5D)) + (hours * hourRate) Else gross = hours * hourRate
    End If
    grossLabel.Text = Convert.ToString(gross)
    

Review Questions

Chapter 4 Review Questions

1. D.
2. B.
3. B.
4. A.
5. A.
6. C.
7. B.
8. C.
9. D.
10. C.
11. S.
12. C.
13. C.
14. D.
15. A.
16. C.
17. C.
18. A.
19. C.
20. B