Question

金额大小写转换

要求使用到：
（1）文本框、标签、按钮控件
（2）Selecy Case 语句
（3）Right函数从字符串右边取出指定的字符。
任务： 将小写金额转换为大写的金额。程序运行界面如下：





Answer 1

1。将0到9数字的大写存入数组，与数字一一对应。如：Str(0)="零"……小数点另行定义
2。用循环依次取上文本框中的数字
3。for i=0 to len(text1)-1
inta=val(mid(i,1))'不是小数点的
text2=text2 & str(inta)
next
以上提供一种思路，未列出小数点的解法，具体你可以参考一下，方法有多种。

Answer 2

Function RMB(num)
num = FormatNumber(num, 2)
Dim numList
Dim rmbList
Dim numLen
Dim numChar
Dim numstr
Dim n
Dim n1, n2
Dim hz
numList = "零壹贰叁肆伍陆柒捌玖"
rmbList = "分角元拾佰仟万拾佰仟亿拾佰仟万"
If num > 9999999999999.99 Then
RMB = "超出范围的人民币值"
Exit Function
End If
numstr = CStr(num * 100)
numLen = Len(numstr)
n = 1
Do While n <= numLen
numChar = CInt(Mid(numstr, n, 1))
n1 = Mid(numList, numChar + 1, 1)
n2 = Mid(rmbList, numLen - n + 1, 1)
If Not n1 = "零" Then
hz = hz + CStr(n1) + CStr(n2)
Else
If n2 = "亿" Or n2 = "万" Or n2 = "元" Or n1 = "零" Then
Do While Right(hz, 1) = "零"
hz = Left(hz, Len(hz) - 1)
Loop
End If
If (n2 = "亿" Or (n2 = "万" And Right(hz, 1) <> "亿") Or n2 = "元") Then
hz = hz + CStr(n2)
Else
If Left(Right(hz, 2), 1) = "零" Or Right(hz, 1) <> "亿" Then
hz = hz + n1
End If
End If
End If
n = n + 1
Loop
Do While Right(hz, 1) = "零"
hz = Left(hz, Len(hz) - 1)
Loop
If Right(hz, 1) = "元" Then
hz = hz + "整"
End If
RMB = hz
End Function

Answer 3

你的邮箱？我发给你。

追问

留不了邮箱
能不能不要那里的转换按钮，使得一输入数字就有自动转换.
还有你能不你能顺便告诉诉我一下这个程序设计的步骤.

追答

我怎么发给你？有QQ吗？
“能不能不要那里的转换按钮，使得一输入数字就有自动转换.”可以是可以，但是这样弊病比较多。
至于设计步骤，和一般的程序设计没有什么二样，无非是将大写字母的转换，写入一个过程而已。

追问

5 1 1 2 3 5 3 0 6

追答

已经加你的QQ了，好像你没有确认。

已经修改为使得一输入数字就有自动转换了。

Answer 4

小写与大写的定义？请举例子！

追问

追答

帮你做了一个，角与分，留给你自己解决吧！

追问

大神，能不能说一下这个程序的设计流程和算法？