Function IsNum(Num)
For i=1 To len(Num) If asc(mid(Num,i,1))<48 or asc(mid(Num,i,1))>57 Then IsNum=False Exit Function Else IsNum=True End If Next End Function本文共 203 字，大约阅读时间需要 1 分钟。
Function IsNum(Num)
For i=1 To len(Num) If asc(mid(Num,i,1))<48 or asc(mid(Num,i,1))>57 Then IsNum=False Exit Function Else IsNum=True End If Next End Function转载于:https://blog.51cto.com/332374363/904973