主题：求助：那位朋友能帮我编个小程序：人民币小写转换为大写。谢谢
shizengshun13203
[专家分：0] 发布于 2009-07-24 09:25:00
输入一个数字：12345
转换为：壹万贰仟叁佰肆拾伍元
回复列表 （共4个回复）
沙发
老大徒伤悲 [专家分：29120] 发布于 2009-07-24 11:12:00
本论坛有过很经典的帖子，你翻翻看。
板凳
ad48334302 [专家分：60] 发布于 2009-07-24 13:59:00
Dim n As String
Dim a As Integer
Dim b As Integer
Dim x, y As String
Dim s As String
Private Sub Command1_Click()
dx = Array("零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖")
ws = Array("圆", "拾", "佰", "仟", "万", "拾", "佰", "仟")
If Text1.Text = "" Then
MsgBox "请输入金额！"
Exit Sub
End If
If IsNumeric(Text1.Text) = fase Then
MsgBox "输入的不是数字！"
Exit Sub
End If
If Mid(Text1.Text, 1, 1) = "0" Then
MsgBox "数字不能由0开头!"
Exit Sub
Else
n = Text1.Text
End If
b = Len(n)
For i = 0 To b - 1
a = Mid(n, i + 1, 1)
x = dx(a)
y = ws(b - 1 - i)
s = s & x & y
Next i
Label1.Caption = s & " " & "整"
End Sub
我来回复
您所在位置：社区首页 — Visual Basic讨论区 — 求助：那位朋友能帮我编个小程序：人民币小写转换为大写。谢谢