VB 小数怎么相加？

比如：a=998.12

如何给最后一个小数加 1 ？ 也就是结果为:998.13

a的值是未知的！有可能是(9.9452 ,或99.1)

绝对符合你的要求

Private Sub Command2_Click()
Dim a As Double
Dim b As Integer
a = "99.888888"
b = InStr(1, a, ".")
a = a + 1 / (10 ^ ((Len(a) + 1 - b)))
End Sub

给个思路吧

先把点后面的小数长度取得 可以按照点分割

然后它的长度就是0.后面的长度

你先判断小数点后有几位，在就是用1除几就行了。

比如是3位。你就1/1000，然后相加

Private Sub Command1_Click() a = Left(Text1.Text, Len(Text1.Text) - 1) & Right(Text1.Text, 1) + 1 MsgBox a End Sub