if not isnumberic(xx) then
    msgbox "请输入数字"
elseif xx<0 then
    msgbox "输入的是负数"
end if

解决方案 »

  1.   

    晕!自己写一个不就完了嘛function GetNumber(Number as integer) as stringif number<0 then 
       getnumber="是个负数“
    else
       getnumber="是个正数或是0"end function
      

  2.   

    if val("-12") < 0 then msgbox "负数!"
      

  3.   

    val判断是否数字,然后判断是否<0
      

  4.   

    if isnumberic(Number)=false then
        msgbox "请输入数字"
    else
        if val(Number)<0 then
             msgbox "输入的是负数"
        endif
    end if