网络收藏

如题,谢谢

推荐阅读

public   function   sffunlimitnumber(byval   intval   as   integer)   as   integer  
  -------------------1-------------------  
  目                 的：只允许在文本框内输入数字、退格、删除及回车键  
  输                 入：byval     intval     as     integer,任意的键值  
  被传递值：无  
  返     回     值：过滤后的键值  
  输                 出：无  
  注                 解：  
  用                 法：在文本框的keypress事件中输入keyascii     =     sffunlimitnumber(keyascii)即可  
  修     订     版：  
  -------------------1-------------------  
     
     
  if   (intval   <>   vbkeydelete)   _  
  and   (intval   <>   vbkeyback)   _  
  and   (intval   <>   13)   _  
  and   (intval   <   48   or   intval   >   57)   then  
                intval   =   0  
  end   if  
  sffunlimitnumber   =   intval  
     
  end   function  
 

if   text1.text<>""   then  
          if   not   isnumeric(text1.text)   then  
                  msgbox   "不是数值型数据!",48,"提示"  
                  exit   sub  
          else  
                  if   text1.text=int(text1.text)   then  
                          msgbox   "是整数"  
                  else  
                          msgbox   "不是整数"  
                  end   if  
          end   if  
  end   if

if   int(text.text)   =   text.text   then  
        msgbox   "整型"  
  else  
        msgbox   "非整型"  
   
  endif

 
  if   isnumeric(text.text)   and   cint(text.text)   =   text.text   then  
        msgbox   "整型"  
  else  
        msgbox   "非整型"  
  end   if