然后,显示报道,除了英文字母外其余的所有字符串,并告诉你字符串的位置。
谢谢拉,麻烦朋友了!
參考答案:1.添加如下函数
Private Function IsEng(ByVal strSource As String) As Boolean
Dim chrCheck As Char
Dim i As Integer
Dim intCount As Integer
intCount = strSource.Length - 1
For i = 0 To intCount
chrCheck = strSource.Chars(i)
If Not Char.IsLetter(chrCheck) Then
Return False
End If
Next
Return True
End Function
2.测试函数
Dim blnEng As Boolean
blnEng = IsEng("abcd5") 'False
blnEng = IsEng("abcdf") 'True