| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 975 人关注过本帖
标题:做一个整数转换成人民币大写的程序
只看楼主 加入收藏
xilong83
Rank: 1
等 级:新手上路
帖 子:43
专家分:0
注 册:2007-10-28
收藏
 问题点数:0 回复次数:4 
做一个整数转换成人民币大写的程序
如题,
代码该怎么写呢??
搜索更多相关主题的帖子: 人民币 整数 
2008-06-26 13:33
cba817
Rank: 2
等 级:论坛游民
帖 子:95
专家分:10
注 册:2008-3-24
收藏
得分:0 
站内有一个多功能计算器里有这个功能,不防看一下代码,也许有帮助的!
2008-06-26 14:40
jxyga111
Rank: 8Rank: 8
来 自:中華人民共和國
等 级:贵宾
威 望:33
帖 子:6015
专家分:895
注 册:2008-3-21
收藏
得分:0 
你想一下啊,整数再怎也只有0`9 吧,把他给打死啊如:
IF I=0 THEN TEXT1.TEXT="零"
ELSEIF I=1 THEN TEXT1.TEXT="一"

烈焰照耀世界,斌凍凍千萬裏
2008-06-27 08:44
ptmwvbzf
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2008-6-27
收藏
得分:0 
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
超过万的,在做一个循环,不过要去掉元,大概就这样喽
2008-06-27 16:20
ptmwvbzf
Rank: 1
等 级:新手上路
帖 子:14
专家分:0
注 册:2008-6-27
收藏
得分:0 
忘记处理零,加上逢零就跳过的吧
2008-06-27 18:52
快速回复:做一个整数转换成人民币大写的程序
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015719 second(s), 9 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved