龙眼干出售_桂圆干出售_桂圆干批发-莆田特产

以下代码是解决提问的方法

        Private Sub Form_Load()
                    Dim StrA, strX As String
                    strX = 2012.2635
                    StrA = Format(Val(strX), "0.00")
                    StrA = "        " & StrA
                    Text1 = Mid(StrA, Len(StrA) - 7, 9)
                    Text1.Text = Text1
        End Sub