求助！VB简单计算问题 - 编程论坛

#2

VB丶小宇2013-12-17 19:21

我这里计算的也是1216。

只有本站会员才能查看附件，请登录

程序代码：

Private Sub Command1_Click()
Dim H3
Dim L2
Dim u
Dim PI
Dim SnX
Dim halfLw#
Const M = 1089.9
      PI = 3.1415926
      u = 50
      H3 = 29.15
      L2 = 100
      SnX = 22
halfLw# = M + PI * (u + H3) / 2 + 0.5 * L2 / SnX
Text1.Text = halfLw
End Sub

#3

vbvcr512013-12-17 19:30

误差累计。类似蝴蝶效应。

#4

tbxpf226402013-12-17 19:48

回复 3楼 vbvcr51

如果真是这样的话，我想要得到想要的结果，如何写代码？
应该不会啊，其他算式有比这个更复杂的也没出错啊

#5

tbxpf226402013-12-17 19:49

回复 2楼 VB丶小宇

#6

Artless2013-12-17 23:41

以下是引用tbxpf22640在2013-12-17 18:57:58的发言：

先上图，很简单的，一个按钮一个文本框
作如下计算
Private Sub Command1_Click()

Const M = 1089.9
      PI = 3.1415926
      u = 50
      H3 = 29.15
      L2 = 100
      SnX = 22
halfLw# = M + PI * (u + H3) / 2 + 0.5 * L2 / SnX

Text1.Text = halfLw

End Sub

计算结果显示在文本框里
我按计算器算出来的结果是1223，但是VB算出来的结果为什么会是1216？

为什么是1223?
1216.5012544177272727272727272727

#7

seafish0112013-12-17 23:50

你的计算器该换了