IsNumeric 写道
Public Function Number_Check(ByVal str As String) As Boolean
Dim i As Integer = Len(str)
Dim j As Integer
Dim flag As Boolean = True
For j = 1 To i
If IsNumeric(Mid(str, j, 1)) Then
flag = True
Else
flag = False
Exit For
End If
Next
Return flag
End Function
Dim i As Integer = Len(str)
Dim j As Integer
Dim flag As Boolean = True
For j = 1 To i
If IsNumeric(Mid(str, j, 1)) Then
flag = True
Else
flag = False
Exit For
End If
Next
Return flag
End Function
扫一扫
9576
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
