做一个整数转换成人民币大写的程序(页 1) - VB6论坛

xilong83 发表于 2008-6-26 13:33

做一个整数转换成人民币大写的程序

如题,
代码该怎么写呢??

cba817 发表于 2008-6-26 14:40

站内有一个多功能计算器里有这个功能，不防看一下代码，也许有帮助的！

jxyga111 发表于 2008-6-27 08:44

你想一下啊,整数再怎也只有0`9 吧,把他给打死啊如:
IF I=0 THEN TEXT1.TEXT="零"
ELSEIF I=1 THEN TEXT1.TEXT="一"

ptmwvbzf 发表于 2008-6-27 16:20

Private Sub Command1_Click()
abcd = "壹贰叁肆伍陆柒捌玖"
dcba = "元拾佰仟万"
Text2.Text = ""
For i = 1 To Len(Text1.Text)
  ls = Mid(abcd, Mid(Text1.Text, i, 1), 1)
  ls2 = ls2 + ls
Next i
For i = 0 To 4
  If i < Len(Text1.Text) Then
   Text2.Text = Mid(ls2, Len(ls2) - i, 1) + Mid(dcba, i + 1, 1) + Text2.Text
  End If
Next
  Text2.Text = Text2.Text + "整"

End Sub
超过万的,在做一个循环,不过要去掉元,大概就这样喽

ptmwvbzf 发表于 2008-6-27 18:52

忘记处理零,加上逢零就跳过的吧

页: [1]