
1个回答
展开全部
Function IsInteger(strl) Dim i,ascStr If len(strl) < 4 or len(strl) >10 then IsInteger=FALSE:Exit Function For i = 1 to len(strl) ascStr=asc(mid(strl,i,1)) If ascStr<47 or ascStr>59 Then IsInteger=FALSE Exit Function End if Next IsInteger=True End function '符合的话将返回True ,
记得采纳啊
记得采纳啊
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询