•Private
Sub btnEvaluate_Click(...) _
• Handles btnEvaluate.Click
• Dim answer As Double
• answer = CDbl(txtAnswer.Text)
• If (answer >= 0.5) And (answer <= 1)
Then
• txtSolution.Text = "Good, "
• Else
• txtSolution.Text = "No, "
• End If
• txtSolution.Text &= "it holds about
3/4 of" _
• & " a
gallon."
•End Sub