请补全如下代码:
<script&NBSP;LANGUAGE="VBSCRIPT"> </script&NBSP;LANGUAGE="VBSCRIPT">
sub windows_onload
form1.elm.focus
end sub
sub button1_onClick
dim zm
zm=_________
if zm = "" then
__________"没输入内容,请输入内容"
end if
zm=Lcase(zm)
for __________ ‘利用len()函数得到字符串长度
if____________________ then ‘利用mid(字符串,第几个起,取几个)遍历字符串
msgbox "输入的内容中还没发现字母"
end if
next
for ______________
if______________________ then
msgbox "输入的内容中已发现含有字母"
exit for
end if
next
end sub
答:
form1.elm.value
msgbox
i = 1 to len(zm)
mid(zm,i,1) < "a" or mid(zm,i,1) > "z"
i = 1 to len(zm)
mid(zm,i,1) > "a" and mid(zm,i,1) < "z"
elm