金额小写转中文大写财务人员专用(附源代码)vb

linfengtai2008

Private Sub Command1_Click()
Dim dx As String
Dim dw As String
Dim s As String, c As String
Dim ch As String
Dim i As Integer
dw = "零壹佰拾萬仟佰拾元"
dx = "零壹贰叁肆伍陆柒捌玖"
s = Text1.Text
If Len(s) > 9 Then
    Text2.Text = "输入的数据超出所能转换的范围"
Else
   For i = 1 To Len(s)
    ch = Mid(s, i, 1)
    c = c + Mid(dx, Val(ch) + 1, 1) + Mid(dw, 9 - Len(s) + i, 1)
    Next i
    Text2.Text = c + "整"
End If
End Sub

shek101010

就这想要2CB？

神羽飞扬

花儿五笔，‘123，壹佰贰拾叁元整

hiviki

输入法v123

f23258

花儿五笔，‘123，壹佰贰拾叁元整

aq4399

涨知识了 v123  基本上输入法都可以

hushenqing

必须留言，楼主辛苦感谢楼主~

fengcong1980

涨知识了 原来搜狗输入法直接输入v123  就会出现大写  

libojun

搜狗也可以的

wellenso

不错，谢谢分享！！！