VB编写程序，让用户通过文本框输入一个字符串，检查这个字符串是否全部由字母构成。

Question

然后，显示报道，除了英文字母外其余的所有字符串，并告诉你字符串的位置。
谢谢拉，麻烦朋友了！
我还是VB初学者，老师布置的问题困扰了我好几天拉。
我才学到FOR NEXT循环。就是VB。NET 入门经典（第3版）那本书的第4章，能不能给我个详细的答案。我细细研究下。
具体老师布置这个题目是什么意思我也没有看得太懂，大概就是这个意思吧。我用的是VB2005，以前的版本的代码肯定看不懂

Answer 1

dim i as integer
dim tmpstr as string,info as string
tmpstr=cstr(textbox1.text)
info=""
for i=1 to len(tmpstr)
if asc(mid(tmpstr,i,1))<65 and asc(mid(tmpstr,i,1))>122 then
info=info&mid(tmpstr,i,1)&","
end if
next
if info="" then
msgbox "您输入全是字母"
else
info="以下位置不是字母:"&left(info,len(info)-1)
msgbox info
end if

现在可以么

Answer 2

for i=1 to len(text1.txt)
a=mid(text1.txt,i,1)
if asc(a)>256 or asc(a)<0 then msgbox "第 " & str(i) & "字符: " & a & "不是字母或数字"

next

Answer 3

好久不用VB了，不知道该怎么用了，用C#大概是
if(this.textbox.text.isLetter())
{
messageBox.show("输入正确");
}
else
{
还得查帮助，睡觉呀，懒的查了
}

Answer 4

拿到字符串后LEN一下 然后FORNEXT(变量M，1到LEN（）)检查mid(n.text,m,1)是不是字母就行了

Answer 5

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