Question

vb中text任意输入字符串如何在label中显示字符串中纯字母呢？求vb高手解答~~~在线等待谢谢啦

Answer 1

Dim Str1 As String, Str2 As String, Sng As String
Str1 = Text1.Text
For i = 1 To Len(Str1)
Sng = Asc(Left(Str1, 1))
If (Sng <= 90 And Sng >= 65) Or (Sng <= 122 And Sng >= 97) Then '取出单个用asc码进行判断
Str2 = Str2 + Left(Str1, 1)
End If
Str1 = Right(Str1, Len(Str1) - 1)
Next
Label1.Caption = Str2

追问

虽然不是很理解，准备回去再看一下书上的函数，不过我试了一下，你的程序很fantastic，谢谢你呀，佩服佩服哦