vb 数字转换为中文大写钱币转换程序

来源：百度知道 编辑：UC知道 时间：2024/05/25 05:30:27
拜托高手把代码发上来撒,我们同学都不会
题目:编写一个程序,使得输入一个数字,当点击按钮后转换为中文大写的货币表示 ,要求是：输入的数需要有验证，保证输入的格式是正确的（即不包括非数字之外的字符），判断有效性调用自定义的test(num)函数实现 要求可以达到小数点前10位，小数点后3位

给出一个例子，以求抛砖引玉~~~~~~

建两个Text控件：text1，text2
建三个Command控件：
Command1：转换
Command2：退出
Command3：清除
在text1中输入金额，点Command1进行转换，text2显示大写金额结果。

'写代码如下：
Function daxie(money As String) As String '
Dim x As String, y As String
Const zimu = ".sbqwsbqysbqwsbq" '定义位置代码
Const letter = "0123456789sbqwy.jzf" '定义数字及汉字缩写
Const upcase = "零壹贰叁肆伍陆柒捌玖拾佰仟万亿圆角整分" '定义大写汉字
Dim temp As String
temp = money
If InStr(temp, ".") > 0 Then temp = Left(temp, InStr(temp, ".") - 1)

If Len(temp) > 16 Then MsgBox "数目太大，无法换算！请输入一亿亿以下的数字", 64, "错误提示": Exit Function '只能转换一亿亿元以下数目的货币！

x = Format(money, "0.00") '格式化货币
y = ""
For i = 1 To Len(x) - 3
y = y & Mid(x, i, 1) & Mid(zimu, Len(x) - 2 - i, 1)
Next
If Right(x, 3) = ".00" Then
y = y & "z"