主题：[求助]关于支piao设计中的年大写的问题

 简单写一个吧，你把下面的代码定义成一个 内部函数 自己调用

Dim year As Integer = args(0)

Dim nums As String() = {"零", "壹", "贰", "叁", "肆", "伍", "陆", "柒", "捌", "玖", "拾"}
Dim str_year As String = CStr(year)
Dim result As String = ""
For Each ch As String In str_year
    result += nums(CInt(ch))
Next

Return result

http://www.foxtable.com/help/topics/1486.htm