form1.currentx=60:form1.currenty=600 '定位提示语在窗体上输出地位置,可以自己调整
if instr(text1.text,"@")<>0 then '文本框字符串内有@字符,则提示
form1.print "用户名有非法字符,请重输"
else
if len(text1.text)<6 or len(text.text)>10 then
form1.print "密码长度应大于5位"
else
form1.print "输入成功,谢谢!"
end if
end if
这么明确的要求, 还有什么可问的