vb 判定字符串全是数据的函数

Function fetchNumFromString(str As String) As Boolean
Dim i As Integer, count As Integer
Dim j As Integer
Dim k As Integer
Dim arr(10) As String

   count = 0
  
   For i = 0 To Len(str) - 1
       
        arr(i) = Mid(str, i + 1, 1)
        count = count + 1
    Next i
 
   k = 0
  For j = 0 To (count - 1)
      If Asc(arr(j)) >= 48 And Asc(arr(j)) <= 57 Then
        k = k + 1
      End If
 Next j
 
 If k = count Then
      fetchNumFromString = True
     
 Else
      fetchNumFromString = False
      
 End If
End Function

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/13996372/viewspace-604464/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/13996372/viewspace-604464/