7450
社区成员
- 主页
...全文
请发表友善的回复…
发表回复
tianjy 2003-12-17
Dim isNum As Boolean
isNum = False
Dim i As Integer
Dim s As String
s = "abcdefaaghi"
For i = 1 To 9
If InStr(1, s, i) > 0 Then
isNum = True
Exit For
End If
Next
Debug.Print isNum
isNum = False
Dim i As Integer
Dim s As String
s = "abcdefaaghi"
For i = 1 To 9
If InStr(1, s, i) > 0 Then
isNum = True
Exit For
End If
Next
Debug.Print isNum
boydgmx 2003-12-17
如果你想逐个判断字符串中的每个字符，则
isNum=True
for i=1 to len(str)
if isnumeric(mid(str,i,1)) then
isNum=True
else
isNum=False
exit sub
end if
next
debug.print isNum
isNum=True
for i=1 to len(str)
if isnumeric(mid(str,i,1)) then
isNum=True
else
isNum=False
exit sub
end if
next
debug.print isNum
jhzhou882 2003-12-17
Isnumeric
可以判断出是不是数.包括带"."的和科学记数法如 e10
可以判断出是不是数.包括带"."的和科学记数法如 e10
FSoft 2003-12-16
可以使用Isnumeric函数还判断
dim a as string
a="123"
if isnumeric(a)=true then end
dim a as string
a="123"
if isnumeric(a)=true then end