<%@ Page Language="VB" %>
Sub Reset()
Textbox1.Text = ""
Textbox2.Text = "0"
End Sub
Sub Page_Load(sender As Object, e As EventArgs)
If Not Page.IsPostback
Reset()
End If
End Sub
Sub btnSubmit_Click(sender As Object, e As EventArgs)
If cint(textbox2.text) < 20 Then
label1.text = "Hi " & textbox1.text & ", you are " & textbox2.text & ", which is young!"
Else If cint(textbox2.text) < 40 Then
label1.text = "Hi " & textbox1.text & ", you are " & textbox2.text & ", which means you're middle-aged!"
Else
label1.text = "Hi " & textbox1.text & ", you're old!"
End If
End Sub
Sub btnReset_Click(sender As Object, e As EventArgs)
Reset()
End Sub
Enter your name:
Enter you age: