====问题很简单，我急用======

[sswang111]

Private Sub Text1_LostFocus()
Select Case InStrRev(Text1, ".", 1) '从右向左找小数点。
Case 1
Text1 = Text1 + "00"
Case 2
Text1 = Text1 + "0"

End Select
End Sub
'为何0加不上去。

[darkmoon]

Text1.text=Text1.text & "0"
为什么不用format(Text1.text,"####.00")

[ByTheWay]

这样就可以了：
Private Sub Text1_LostFocus()
Text1=StrReverse(Text1)
Select Case InStrRev(Text1, ".", 1) '从右向左找小数点。
Case 1
Text1 = StrReverse(Text1) + "00"
Case 2
Text1 = StrReverse(Text1) + "0"

End Select
End Sub

[ByTheWay]

怎么MICROSOFT的InStrRev和InStr一样呢？

[powpow]

同意：　darkmoon(翔)