Private Sub cmdClear_Click() txtOutput.Text = Clear txtString.Text = Clear txtString.SetFocus
End Sub
'Logic To Verify Through Ascii Values
Private Sub cmdVerify_Click () If (Asc (txtString.Text) >= 48 And Asc (txtString.Text) <= 57) Then txtOutput.Text = " Digit" Elself (Asc(txtString.Text) >= 65 And Asc(txtString.Text) <= 90) Then txtOutput.Text = "Capital Letter" Elself (Asc(txtString.Text) >= 97 And Asc(txtString.Text) <= 122) Then txtOutput.Text = "Small Letter" Else txtOutput. Text = "Special Symbol"
End If End Sub
No comments:
Post a Comment