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)