原理就是检查字符串num
如果其中全部为数字组成返回true
反之 false
Public Function chk_num(num As String) As Boolean
Dim i As Integer
Dim j As Integer
i = Len(num)
chk_num = False
Dim zero%, nine%
zero = Val(Asc(0))
nine = Val(Asc(9))
For j = 1 To i
If Val(Mid$(num, j, 1)) < zero Or Val(Mid$(num, j, 1)) > nine Then
Exit Function
End If
Next j
chk_num = True
End Function
问题就是无论我输入的是否是 纯数字组成 的字符串
它都显示FALSE！
郁闷而死
问题出在哪了呢？
參考答案:ASC("0")，应该是这样写吧。你这个函数写得太复杂了。
如果这个功能不是编程本身的要求，只是程序中要用到这样的函数，可以用VB自带的IsNumeric函数，就是这个功能。
