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

Question

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

Answer 1

这样就可以了：
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

Answer 2

怎么MICROSOFT的InStrRev和InStr一样呢？