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
超过万的,在做一个循环,不过要去掉元,大概就这样喽