| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1196 人关注过本帖
标题:请教6*16000 vb中会溢出错误
只看楼主 加入收藏
lxm444
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2009-2-21
收藏
 问题点数:0 回复次数:3 
请教6*16000 vb中会溢出错误
请教
Private Sub Command1_Click()
Dim a As Double
a = 6 * 16000
Text1 = a
End Sub
会出现溢出错误,如何解决,谢谢
搜索更多相关主题的帖子: 如何 
2012-02-01 17:33
lowxiong
Rank: 12Rank: 12Rank: 12
等 级:贵宾
威 望:27
帖 子:652
专家分:3402
注 册:2008-5-7
收藏
得分:0 
Private Sub Command1_Click()
Dim a As Double,b as long
b=16000
a = 6 * b
Text1 = a
End Sub
2012-02-01 19:40
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
a = 6# * 16000

--------------
a = 6 * 16000
两个直接数相乘,因为两个数均未超过 整数范围,所以按整数相乘进行计算,
但计算结果超出了整数范围,所以产生溢出错误。

a = 6# * 16000
申明 6 为  Double 类型,所以就按  Double 进行计算
------------------------


数据类型        关键字    类型符    前缀    字节    范围
    整型    Integer    %    int    2    -32768~32767
    长整型    Long    &    lng    4    -2147483648~2147483647
    单精度型    Single    !    sng    4    负数:-3.402823E38~1.401298E-45
                        正数:1.401298E-45~3.402823E38
    双精度型    Double    #    dbl    8    负数:-1.79769313486232D308~
                        -4.94065645841247D-324
                        正数:4.94065645841247D-324~
                        1.79769313486232D308
    货币型    Currency    @    cur    8    -922337203685477.5808~
                        9.22337E+14
    字节型    Byte       byt    1    0~255
日期型        Date(time)       dtm    8    01,01,100~12,31,9999
                        (00:00:00~23:59:59)
逻辑型        Boolean       bln    2    True与False
字符型        String    $    str        0~65535个字符
对象型        Object       obj    4    任何对象引用
变体型        Variant       vnt        上述有效范围之一

授人于鱼,不如授人于渔
早已停用QQ了
2012-02-01 21:17
lxm444
Rank: 1
等 级:新手上路
帖 子:7
专家分:0
注 册:2009-2-21
收藏
得分:0 
谢谢
2012-02-02 13:25
快速回复:请教6*16000 vb中会溢出错误
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015918 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved