简单问题请教?

gongfucai 2003-08-25 10:18:08
有没有能判断一个String类型的变量的字母全是0-9的数字的function?
...全文
17 5 打赏 收藏 转发到动态 举报
写回复
用AI写文章
5 条回复
切换为时间正序
请发表友善的回复…
发表回复
viena 2003-08-25
  • 打赏
  • 举报
回复
IsNumeric()
jornet 2003-08-25
  • 打赏
  • 举报
回复
你可以这样判断
Private Function panduan(s As String) As Boolean
If Len(CStr(CInt(s))) = Len(s) Then
panduan = True
Else
panduan = False
End If
End Function
射天狼 2003-08-25
  • 打赏
  • 举报
回复
Private Sub Command2_Click()
Dim s As String

s = "12345"
If Val(s) = Trim(s) And InStr(s, ".") = 0 Then
MsgBox "都是数字!", vbExclamation
Else
MsgBox "有非数字!", vbExclamation
End If

End Sub
dandy1437 2003-08-25
  • 打赏
  • 举报
回复
IsNumeric(text1.Text)也可以判断是不是数字
dandy1437 2003-08-25
  • 打赏
  • 举报
回复
如果是输入判断
那就用ASCII判断吧
KeyAscii > 57 Or KeyAscii < 48就是0-9

7,759

社区成员

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧