主题：中文数字与阿拉伯数字如何互换？

怎么会有这么奇怪的问题啊：

Dim zw1 As String = "零一二三四五六七八九"
Dim val1 As String = "6九八1"
Dim val2 As String
For Each c  As String In val1
   If Char.IsDigit(c) Then
        val2 = val2 & zw1(cint(c))
    Else
        val2 = val2 & zw1.IndexOf(c)
    End If
Next
output.show(val2)

上午我刚做了个公历转农历，就用到将年份转为中文字，自己写的很复杂，没想到狐爸这么简单几句就行了，我去替换下

转换中文系统自带有：

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

  我帮助看得不仔细

帮助处处是宝，不要错过。

不是王婆卖瓜，foxtable的帮助可能是你能找到的最好的帮助文件。

  狐爸，将阿拉伯数字转换为中文小写格式时，数字0还是按大写格式转换为“零”了，是不是应该转换为“Ｏ”呀？