vb判断是否为数字

发布网友发布时间：2022-04-23 17:20

我来回答

共5个回答

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

If IsNumeric(Text1.Text) = True Then MsgBox "纯数字"Else MsgBox "非纯数字"End If。

用 Isnumeric 来断例:点一个按钮输入一个数字或字符来判断private sub button1_clik(byval sender as system.object.

byval eassystem.eventargs)handles button1.click.

dim x x=inputbox("请输入").if not IsNumeric(x) then.msgbox("不是数字").

elsemsgbox("是数字")。

Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged.

If IsNumeric(Me.TextBox1.Text) Then.Label1.Text = "数字"。

ElseLabel1.Text = "字符"End If End Sub iif (Isnumeric("123-"),"数字","不是数字")数字?iif(val("123-")="123-","数字","不是数字")不是数字

iif(val("-123")="-123","数字","不是数字")数字看这三个判断就知道Isnumeric 是否对了!

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

IsNumeric 函数示例

本示例使用 IsNumeric 函数判断变量的值是否可为数值。

Dim MyVar, MyCheck
MyVar = "53" ' 指定值。

MyCheck = IsNumeric(MyVar) ' 返回 True。

MyVar = "459.95" ' 指定值。

MyCheck = IsNumeric(MyVar) ' 返回 True。

MyVar = "45 Help" ' 指定值。

MyCheck = IsNumeric(MyVar) ' 返回 False。

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

If IsNumeric(Text1.Text) = True Then
MsgBox "纯数字"
Else
MsgBox "非纯数字"
End If

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

if isnumeric(a)=false then
MsgBox "该数不为数字", , "友情提示"
end if

忘记什么样的叫整数了！~

没有小数点的都叫整数吗？

如果可以拿小数点判断就用instr(a,",")>0 就是有小数点

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

if (a 不为数字) then
应该为
If Not IsNumeric(a) Then
或
If IsNumeric(a) = False Then
判断a是否为整数
If Int(a) <> a Then
MsgBox Str(a) & "不是整数"
Else
MsgBox Str(a) & "是整数"
End If

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