如题,
代码该怎么写呢??

站内有一个多功能计算器里有这个功能，不防看一下代码，也许有帮助的！

你想一下啊,整数再怎也只有0`9 吧,把他给打死啊如:
IF I=0 THEN TEXT1.TEXT="零"
ELSEIF I=1 THEN TEXT1.TEXT="一"

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

忘记处理零,加上逢零就跳过的吧