为什么 vb 减法会错误。。。。。。
text1=1138.15
text2=1139.3
Private Sub Command1_Click()
MsgBox Val(Text1) - Val(Text2)
End Sub
这计算结果 应该是1.15
而我这电脑出来的结果是 -1.14999999999986
这个正常,因为计算机是以二进制存储值的,不信你直接
debug.print 1139.3-1138.15
结果也是
1.14999999999986
看看你的开发需求,如能四舍五入取近似值就取一下吧
这是电脑符点运算精度问题。建议指定数据精度，你可以使用format函数指定小数位数，这样，系统会自动进行四舍五入的计算。
有些十进制小数在浮点数中没有对应的表示，只能近似表示。不过至少7位以内是精确的。你把它四舍五入到7位吧。
用专门算钱的Currency计算吧,应该是为了应用目的,MS也不会让用它来算这个有误差的:)
输出结果:
Currency: 1.15
Single: 1.150024
Decimal: 1.15
Double: 1.14999999999986
直接量: 1.14999999999986
VB code:
Option Explicit
Private Sub Form_Load()
TestJian
End Sub
'---------------------------------------------------------------------------------------
' 过程名 : TestJian
' 时间 : 2010-3-4 21:45
' 作者 : 杨过.网狐.cn
' 功能 : http://topic.csdn.net/u/20100304/21/d13424de-a610-40dc-9740-2cd6b9d328b7.html?seed=1167179594&r=63715104#r_63715104
' 说明 : 为什么 vb 减法会错误。。。。。。
相关问答：
在下是vb的新手，想写段程序，在vb中，使用wscript调用一些外部的命令，但是程序执行一直有错误，请各位高手帮忙解答下，谢谢。
代码如下：
VB code:
Private Function getFile_CMD(filename, filepath) As Bo ......
初学，大胆提问，请高手不吝赐教
1、滚动条点击与绘图板（屏幕,Piceure1）的移动问题已经解决。
Picture1.Top = -VScroll1.Value + bcW '垂直移动
Picture1.Left = -HScroll1.Value + bcW ' ......
可以吗
好奇怪的题目额！！
可以告诉我们你到底想问什么 ？
2分给我的话就可以。
........................可以吗
可以!
纠结，
29. vb可以这样做不？ ( H )√
A. ......
Private Sub Command1_Click()
Dim MyString() As String
Open "a.xml" For Binary As #1 ' 打开刚创建的文件。
ReDim MyString(LOF(1) - 1)
Put #1, , MyRecord ' 读入所有字符到变量中 ......
如题，VB中如何实现一PC控制N台PC机的开关机或者其他命令呢？
这个问题有点大哦.如不能在其它机器上也装程序的话,那只要看他们有没配置有远程控制开关机了
如果是那种客户/服务端的方式 ，就是被控制PC也需要安� ......
