Question

设计一个删除输入的字符串中的非字母字符的vb程序

设计一个删除输入的字符串中的非字母字符的vb程序

Answer 1

Private Sub Command1_Click()
  Text2.Text = ""
  For i = 1 To Len(Text1.Text)
    If (Asc(Mid(Text1.Text, i, 1)) >= 65 And Asc(Mid(Text1.Text, i, 1)) <= 90) Or (Asc(Mid(Text1.Text, i, 1)) >= 97 And Asc(Mid(Text1.Text, i, 1)) <= 122) Then
      Text2.Text = Text2.Text + Mid(Text1.Text, i, 1)
    End If
  Next i
End Sub