![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEjRnWM8ajLMrkmXhLb4j_DCM3baXgwZqAGvzffdbMpuAYnt9XYM_Cvkn4Zt6ACCLs-4IJ7JN53GwZRo0U8y0QblCdBogr5kLFvWHZK_gESddxxqgqSVk9YTdRdOM_bYp6TwbYH3Z2GiXUW0/s320/1.jpg)
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