发布网友 发布时间:2024-10-23 22:18
共4个回答
热心网友 时间:2024-10-29 14:33
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> 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
热心网友 时间:2024-10-29 14:33
可以定义一个空变量,
Dim name,name_null
……
if name<>name_null then
……
else
……
end if
热心网友 时间:2024-10-29 14:34
if len(a) = 0 then
msgbox "a的值为空!"
else
msgbox "a的值不空!"
end if
热心网友 时间:2024-10-29 14:34
额…不知道有没有ISEMPTY这个函数
热心网友 时间:2024-10-29 14:33
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> 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
热心网友 时间:2024-10-29 14:34
可以定义一个空变量,
Dim name,name_null
……
if name<>name_null then
……
else
……
end if
热心网友 时间:2024-10-29 14:34
if len(a) = 0 then
msgbox "a的值为空!"
else
msgbox "a的值不空!"
end if
热心网友 时间:2024-10-29 14:35
额…不知道有没有ISEMPTY这个函数