Ans:
Dim str__len, I As Integer
Dim str, dig As String
Private Sub CmdSep_Click()
str = txtString.Text
str__len = Len(str)
For I = 1 To str_len
st = Mid(str,I, 1)
If Asc(st) >= 65 Or Asc(st) >= 112 Then
alpha = alpha + st
Elself Asc(st) >= 48 Or Asc(st) <= 57 Then
dig = dig + st
End If
Next
txtAlpha. Text = alpha
txtDigit.Text = dig
End Sub
No comments:
Post a Comment