Question

VB中如何判断text1.text里是否输入的是汉字,或字母,数字.

Answer 1

在窗体加一个按钮 command1

private sub command1_click()

dim s as string,i as integer , alph as boolean

s=ucase(text1)

for i=1 to len(s)

if mid(s,i,1)<="A" or mid("s",i,1)>="Z" then

alph=true

exit for

end if

next

if alph=false then

msgbox "文本框全为字母"

else

msgbox "文本框不全为字母"

end if

end sub

Answer 2

判断字符的ascii码，也就是说先用asc()函数将文本框中的每个字符转化为ascii码，判断其值是否在65到90或97到122