double是双精度 有效数值位52位 表示成指数的形式 即指数11位 即表示成
太仓网站建设公司成都创新互联公司,太仓网站设计制作，有大型网站制作公司丰富经验。已为太仓上1000+提供企业网站建设服务。企业网站搭建\成都外贸网站建设要多少钱，请找那个售后服务好的太仓做网站的公司定做！
所以180.89305用2进制表示是10110100.1110010010011110111011001011111110110001010110110101
即
180.89305在double中存在的实际数值是
1.01101001110010010011110111011001011111110110001010110110101 *2^7
取小数点后 52位有效值后 等于10进制的180.893049999999998
所及加最后变成了 1808930.99999999998
第一次当然输出近似值1808931
第二次int函数去掉了小数点后的数int就是只取整数的部位的不是四舍五入 所以少了1
首先你的保证在TEXT中输入的是数字。
下来用txt21=CInt(txt21.Text) 强制转化成int型就可以了。 如果输入问非数字型，强制转化将出错！
'判断文本框内容为数字。
if IsNumeric(txt21.text) then
txt21=CInt(txt21.Text)
end if
date是一个类型。。。似乎不能赋值吧
由Sting转换成 Integer 可以这样写
dim a as string="adasdfsdfsferqwer"
dim b as integer
b= CUInt(a)
语法是正确的。。。但你要是把 几个字符转硬转换为 数字整型 但这几个字符串又不是数子 一定要出错的
如果是下面就没错了
dim a as string="45446464646"
dim b as integer
b= CUInt(a)
