指出表達式的運算結果是否為數。就是這個字符是不是數字

  勇芳 2017-4-5 4554

Function IsNumeric(ByVal Str As String ) As Long '指出表達式的運算結果是否為數。
    Local I,a,b,c As Long
    If Len(str)=0 Then Exit Function
       For i=1 To Len(Str) 
          a=Asc(str,i)
          If a=46 Then 
            b=b+1
            If b>1 Then Exit Function
          ElseIf a=45 Then 
            If i<>1 Then Exit Function
          ElseIf a<48 Or a>57 Then
            Exit For
          End If
       Next
   Function=1    
End Function


因國家互聯網安全管理要求,關閉回帖功能。大家需要留言,請使用【勇芳軟件客服】即時聯系勇芳點此打開->>勇芳軟件客服
返回
聯系勇芳
一个人看的www视频播放中文_2012中文字幕电影_亚洲国产成人高清在线观看_中文字幕天堂最新版在线网