![](https://blogger.googleusercontent.com/img/b/R29vZ2xl/AVvXsEg_x01H0zMi3THx8a2_wVX9Au0axZpiujCVlgXeeROt-Uc3bEWefbzwp7VidJ-nGI3taREDAgBw0AFsY3pOsUn8JglivDqxO_VP41KwzDnV1z9t0KV5XtusL3cARROFj_TsK5teLTBX6wN1/s320/18.jpg)
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