想编个数字大小写转换器, 代码要怎么写 ,用VB.net写的

发布网友

我来回答

共2个回答

热心网友

Private Function RMBChinese(ByVal Rmb As Double) As String

        Dim Rmbexp As String

        Dim Rmbda As String

        Dim Expda As String

        Dim Ntyp As Integer

        Dim Icnt As Integer

        Dim i As Integer

        Dim Trmb As String

        Dim re As String = 0

        Rmb = Format(Rmb, "###0.00")

        If Rmb > 999999999999.99 Then

            re = "需转换的金额整数长度超过了12位！"

            Return re

        End If

        Rmbexp = "分角元拾佰仟万拾佰仟亿拾佰仟"

        Rmbda = "零壹贰叁肆伍陆柒捌玖"

        Ntyp = 0

        Trmb = Replace(CStr(Format(Rmb, "0.00")), ".", "")

        If Microsoft.VisualBasic.Left(Trmb, 1) = "-" Then

            Trmb = Mid(Trmb, 2)

            Ntyp = 1

        End If

        Expda = ""

        Icnt = Len(Trmb)

        For i = 1 To Icnt

            Expda = Mid(Rmbda, Val(Mid(Trmb, Icnt - i + 1, 1)) + 1, 1) + IIf(Mid(Rmbexp, i, 1) = "元", Mid(Rmbexp, i, 1) + " ", Mid(Rmbexp, i, 1)) + Expda

        Next

        re = IIf(Ntyp = 1, "负" + Expda, Expda)

        Return re

    End Function

追问这些代码直接写到Button按钮的Click事件下？

追答Button按钮的Click事件下调用该函数
textbox2.text=RMBChinese(val(textbox1.text))

热心网友

描述不清楚
123 壹贰叁，还是壹百贰拾叁追问壹佰贰拾叁