使用while..wend语句判断输入的每一个字符是否属于26个英文字母。如果存在非英文字母，则给出提示

VB的写法是

Sub TestChar()
Dim GoOn As Boolean
Dim KeyIn As String
GoOn = True
While GoOn
KeyIn = InputBox("按一个字符键，然后点确定”")
If LCase(KeyIn) < "a" Or LCase(KeyIn) > "z" Then
If MsgBox("你输入了一个非字母的文字,点“是”继续输入测试，点“否”退出测试", vbYesNo) = vbNo Then GoOn = False
End If
Wend
End Sub

你的网页环境中你可以自行改造