a =inputbox("请输入一个字符!"袭亩)
if a="" then
msgbox"输入的是空值!"
else
for i=0 to 255
if a=chr(i) then
if i>47 and i<58 then
msgbox "输入的是数字:"&a
elseif i>64 and i<91 then
msgbox "输入的是大写字母:"塌拦&a
elseif i>96 and i<123 then
msgbox "输入的是小写字母:"&a
else
msgbox "输入的是其他字符:团禅胡"&a
end if
end if
next
end if
可以定义一个蚂游兆空变量,
Dim name,name_null
……闷租
if name<>磨局name_null then
……
else
……
end if
if len(a) = 0 then
msgbox "a的值为空胡埋纯裤咐!"液携
else
msgbox "a的值不空!"
end if
额…不知道有没有ISEMPTY这个函数