VB判断是否为数字

这个代码怎么写if(a不为数字)thenMsgBox"该数不为数字",,"友情提示"endif括号里面代码怎么写?那不为整数呢?... 这个代码怎么写

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

括号里面代码怎么写?
那不为整数呢?
展开
 我来答
jyq_coco_2008
2008-09-05
知道答主
回答量:13
采纳率:0%
帮助的人:0
展开全部
这个题问的不完全。首先应做这样的声明,若a是数字,那么它必是一个一位数(即只能取0-9),否则你的这个题没法解。
若a的ASCII值不在48-57间,则认为不是数字

if (Asc(a) < 48 Or Asc(a)>57) then
MsgBox "该数不为数字", , "友情提示"
end if

若判断a是否为数字:
Dim a As Object
a = 1

If (Abs(Fix(a)) < Abs(a)) Then
MsgBox(Str(a) & "不是整数")
Else
MsgBox(Str(a) & "是整数")
End If

注意的是:在使用绝对值函数abs前,要在类的前面加上这一句:
Imports System.Math
nefu_20061617
2008-09-06 · TA获得超过2342个赞
知道大有可为答主
回答量:1064
采纳率:72%
帮助的人:1479万
展开全部
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
dl_会飞的青蛙
推荐于2018-04-07 · TA获得超过2456个赞
知道大有可为答主
回答量:3294
采纳率:0%
帮助的人:3378万
展开全部
if isnumeric(a)=false then
MsgBox "该数不为数字", , "友情提示"
end if

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

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

如果可以拿小数点判断就用instr(a,",")>0 就是有小数点
本回答被网友采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
兴6542
2018-10-09
知道答主
回答量:2
采纳率:0%
帮助的人:1819
展开全部

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。


已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(2)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式