请问如何判断textbox中输入的字符串全部由数字组成？

yhwebus 2002-05-26 11:16:48

请问如何判断textbox中输入的字符串全部由数字组成？

dim strNumber as string
strNumber = txtNumber.text txtNumber 为一TextBox
if strNumber<>"" then
for i= 1 to Len(strNumber)
strchar = Mid(strNumber,i,1)
...........?

...全文

86 12 打赏收藏转发到动态举报

写回复

用AI写文章

12 条回复

切换为时间正序

请发表友善的回复…

发表回复

tonykong 2002-05-26

打赏
举报

dim strValid as String

strValid="0123456789"

for i=1 to len(txtNumber.text)
If InStr(strValid, mid(txtNumber.text,i,1)) = 0 Then
'MsgBox "不是数字"
End If
next i

tonykong 2002-05-26

打赏
举报

dim strValid

xxlroad 2002-05-26

打赏
举报

请点你题目的管理就可以给大家放分了

xxlroad 2002-05-26

打赏
举报

还有你就用
Abs判断是否为有没有负号

xxlroad 2002-05-26

打赏
举报

那就请用 Int 判断一下吧
如果 Number=Int(Number) 那一般就没有小数点了

yhwebus 2002-05-26

打赏
举报

麻烦
问题解决
怎么给分？

BigRichBigNoble 2002-05-26

打赏
举报

IsNumeric函数对于小数和负数也返回True,请注意.

dsclub 2002-05-26

打赏
举报

对了。用IsNumeric

Dim MyVar, MyCheck
MyVar = "53" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 True。

MyVar = "459.95" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 True。

MyVar = "45 Help" ' 指定值。
MyCheck = IsNumeric(MyVar) ' 返回 False。

gaoqi5037 2002-05-26

打赏
举报

IsNumeric

trigger_lau 2002-05-26

打赏
举报

用NUMBERIC（）函数

sailorhdx2001 2002-05-26

打赏
举报

Private Sub Text1_KeyPress(KeyAscii As Integer)
Key = Chr(KeyAscii)
Select Case KeyAscii
Case 48 To 57
n = Val(Left(Text1.Text, Text1.SelStart) + Key + Mid(Text1.Text, Text1.SelStart + Text1.SelLength + 1))
If n > MaxSenvalue Or n < MaxSenvalue Then
KeyAscii = 0
End If
Case 8

Case Else
KeyAscii = 0
End Select
End Sub

利用ASCII码值判断

javanj 2002-05-26