Dim i%For i = 1 To Len(Text1.Text) MsgBox Asc(Mid(Text1.Text, i, 1))Next'asc值在0-255为标准ascii字符你查查msdn可以找到英文字母的ascii值，当返回的值是5位数，则肯定不是英文字符，但有可能是日韩或其他非英语的语言字符，不知道能判断不是英文字符是不是就够了
加入时间：2001-2-22阅读次数：83
原文转自：http://www.ltesting.net
模板
教程
环境
性能
功能
管理
