想鸟一样飞翔

摘要： Dim str As String Dim i Dim charPra As String str = Trim(Text1.Text) For i = 1 To Len(str) If Asc(Left(str, 1)) < 0 Then 'MsgBox Left(str, 1) Text1.Text = "" Text1.SelStart = 0 ... 阅读全文