Untitled
unknown
plain_text
2 years ago
559 B
4
Indexable
Private Sub btnCompare_Click(sender As Object, e As EventArgs) Handles btnCompare.Click Dim numA As Integer Dim numB As Integer If Integer.TryParse(txtBoxA.Text, numA) AndAlso Integer.TryParse(txtBoxB.Text, numB) Then If numA > numB Then lblResult.Text = "Value A is greater." ElseIf numA < numB Then lblResult.Text = "Value B is greater." Else lblResult.Text = "Both values are equal." End If Else lblResult.Text = "Please enter valid integers." End If End Sub
Editor is loading...