Question

关于由文本框输入的数据进行计算的问题，进来看看20分

我的需求是 由两个文本框 T1 和 T2，输入两个数据，可能是带小数的，可能是整数，我需要将这两个数据变成整数，然后进行加减乘除运算（这个运算要是用小数就不准确了，所以小数必须要转换成整数），然后再结果上再把那些整数还原成小数（原先是整数就不用还原了）最后将两个小数（或整数）在标签框L1 L2上显示出来

本人是菜鸟，因为急用，所以不得不厚着脸皮来求大家帮忙了，不白忙，能准确运行的 送 20分
问题补充：我这个编程是vb的程序，第一次提问没有说清楚不好意思.我想要得 小数变成整数不是只取整数部分，例如1.2568 变成整数 12568 小数点后面的位数是不固定的
最后将整数还原成小数（前提 输入文本框的数据是小数），得意思是，通过运算将结果还原成小数，而不是还原文本框输入的数据，列入，我下面的公式 L1.Caption = Val(t1.Text) - ((T1.text-T2.text) + Round((T1.text-T2.text) / 2, 0)).若文本框输入的数据为 12568 和12547 时得到结果12537 我希望的结果就是 在输入1.2568 和 1.2547 时得到结果1.2537

Answer 1

根据你的需要，我已修改完毕
特别提醒的是，一定要注意
Int( 1.15 * 10 + 0.5)的结果不是12，而是11
造成这一结果的原因是VB默认的隐式转换所致。
但VB赋予参数的类型是Integer而不是Double,所以
1.15*10的结果就是11，而不是11.5
我的解决办法是将这几步拆开，强制使用Double类型的变量，错误就消除了

Dim a As Double
Private Sub Command1_Click()
a = Val(T2.Text) - (Val(T1.Text) - Val(T2.Text)) / 2 '这是你的公式的精简版
Select Case a
Case Is >= 10000
a = a + 0.5
Case Is >= 1000
a = a * 10
a = a + 0.5
a = Int(a) / 10
Case Is >= 100
a = a * 100
a = a + 0.5
a = Int(a) / 100
Case Is >= 10
a = a * 1000
a = a + 0.5
a = Int(a) / 1000
Case Is >= 1
a = a * 10000
a = a + 0.5
a = Int(a) / 10000
Case Else
a = a * 100000
a = a + 0.5
a = Int(a) / 100000

End Select
L1.Caption = a
End Sub

Answer 2

这个运算要是用小数就不准确了
还没听说过
干脆把你的需要运算列出来
你这样转来转去更不准确了

-----
i = InStr(T1.Text, ".")
If i > 0 Then i = Len(T1.Text) - i
L1.Caption = Val(T1.Text) - ((T1.Text - T2.Text) + Round((T1.Text - T2.Text) / 2, i))