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

转换按钮下面的代码要怎么写。

2025-02-13 21:28:15

推荐回答（2个）

回答1：

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

回答2：

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

最新问答

工地用卷扬机两个接触器只有上下两个按纽的开关怎么接

迪拜帆船酒店怎么样？有什么好玩的地方？

内幕揭秘：金凤凰理财是骗局吗

山西退休加工资标准

thinkpad本本无线网卡搜索不到网络，网络连接有个红叉叉，网卡打不开

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

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