用VB，通过一个命令按钮，将阿拉伯数字金额转化成汉字大写金额~~求大神啊~~~~

Answer 1

Private Sub Command3_Click()
Dim i As Integer, k As Integer, l As Integer, m As Integer, tmp As String, s1 As String, s2 As String, s3 As String, s4 As String
tmp = Format(Trim(Text1.Text), "0.00")
l = InStr(1, tmp, ".")
k = Len(tmp)
For i = 1 To k ' k To 1 Step -1
s2 = Mid(tmp, i, 1)
s1 = ""
s3 = ""
If s2 <> "." Then
Select Case Val(s2)
Case 1
s1 = "壹"
Case 2
s1 = "贰"
Case 3
s1 = "叁"
Case 4
s1 = "肆"
Case 5
s1 = "伍"
Case 6
s1 = "陆"
Case 7
s1 = "柒"
Case 8
s1 = "捌"
Case 9
s1 = "玖"
Case 0
s1 = "零"
End Select

If i < l Then
m = l - i
Select Case m
Case 1
s3 = "圆"
Case 2
s3 = "拾"
Case 3
s3 = "佰"
Case 4
s3 = "仟"
Case 5
s3 = "万"
Case 6
s3 = "拾"
Case 7
s3 = "佰"
Case 8
s3 = "仟"
Case 9
s3 = "亿"
Case 10
s3 = "拾"
Case 11
s3 = "佰"
Case 12
s3 = "仟"
Case 13
s3 = "兆"
End Select
Else
If i > l Then
m = i - l
Select Case m

Case 2
s3 = "分"
Case 1
s3 = "角"
End Select
End If
End If
s4 = s4 & s1 & s3
End If
Next
Text2.Text = s4
End Sub

Answer 2

Private Sub Command1_Click()
MsgBox zhuanhuan(Text1)
End Sub

Function zhuanhuan(x As Variant) As String

t = Split(x, ".")
For j = 0 To UBound(t)
If j = 0 Then
If Len(t(j)) Mod 4 <> 0 Then
a = Len(t(j)) \ 4
temp = temp & shuzi(Mid(x, 1, Len(t(j)) Mod 4), Len(t(j)) Mod 4, 0)
temp = temp & danwei(a + 1)
End If

For k = (Len(t(j)) Mod 4) + 1 To Len(t(j)) Step 4
xx = Mid(x, k, 488)
temp = temp & shuzi(xx, 4, 0)
temp = temp & danwei(a)
a = a - 1
Next
Else
temp = temp & shuzi(t(j), Len(t(j)), 1)
End If
Next
zhuanhuan = temp
End Function
Function shuzi(z As Variant, ws As Integer, h As Integer)

For i = 1 To ws

Select Case Val(Mid(z, i, 1))
Case 1
te = "壹"
Case 2
te = "贰"
Case 3
te = "叁"
Case 4
te = "肆"
Case 5
te = "伍"
Case 6
te = "陆"
Case 7
te = "柒"
Case 8
te = "捌"
Case 9
te = "玖"
Case 0
te = "零"
End Select
If (te = "零" Or i = ws) And h = 0 Then
shuzi = shuzi & te
Else
If h = 0 Then
If ws - i = 3 Then
shuzi = shuzi & te & "仟"
ElseIf ws - i = 2 Then
shuzi = shuzi & te & "佰"
ElseIf ws - i = 1 Then
shuzi = shuzi & te & "拾"
End If
Else
shuzi = shuzi & te & danwei(i - 2)
End If
End If
Next
End Function

Function danwei(y)
Select Case Val(y)
Case Is = 1
danwei = "元"
Case Is = 2
danwei = "万"
Case Is = 3
danwei = "亿"
Case Is = 4
danwei = "万亿"
Case Is = 5
danwei = "万万亿"
Case Is = 6
danwei = "万亿亿"
Case Is = 7
danwei = "万万亿亿"
Case Is = 8
danwei = "万亿亿亿"
Case Is = -1
danwei = "角"
Case Is = 0
danwei = "分"

End Select
End Function

Answer 3

网上有现成的代码，百度一定可以轻易找到

Answer 4

猴急猴急