小于或等于999的正整数用vb如何表示

发布网友发布时间：2022-05-11 16:00

共3个回答

热心网友时间：2023-10-14 17:39

首先要引用Microsoft VBScript Regular Express 5.5，然后写代码

'//判断是否1~999正整数
Function IsZNum(varchar As String) As Boolean
   Dim rex As RegExp
   Set rex = New RegExp
   rex.Pattern = "^[1-9][0-9][0-9]?$"
   IsZNum = rex.Test(varchar)
End Function

热心网友时间：2023-10-14 17:39

'x是要表达的数
x>0 and int(x)=x and x<=999

热心网友时间：2023-10-14 17:40

If x<=999 And x>0 Then .......

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com