想编个数字大小写转换器, 代码要怎么写 ,用VB.net写的
答案:2 悬赏:80
解决时间 2021-01-18 23:45
- 提问者网友:饥饿走向夜
- 2021-01-18 12:34
想编个数字大小写转换器, 代码要怎么写 ,用VB.net写的
最佳答案
- 二级知识专家网友:不如潦草
- 2021-01-18 12:52
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))
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))
全部回答
- 1楼网友:患得患失的劫
- 2021-01-18 13:48
描述不清楚
123 壹贰叁,还是壹百贰拾叁追问壹佰贰拾叁
123 壹贰叁,还是壹百贰拾叁追问壹佰贰拾叁
我要举报
如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
大家都在看
推荐资讯
• 手机登qq时,显示手机磁盘不足,清理后重新登 |
• 刺客的套装怎么选啊? |