将人民币的数字表示转化成大写表示(VB.NET版) (原chenyu001C#版)

End Get

End Property

Private Sub ConvertToChineseNum()

Dim numList As String = "零壹贰叁肆伍陆柒捌玖"

Dim rmbList As String = "分角元拾佰仟万拾佰仟亿拾佰仟万"

Dim number As Double = 0

Dim tempOutString As String

Try

number = Double.Parse(Me._InputString)

Catch ex As SystemException

Me._OutString = "传入参数非数字！"

Me._Valiad = False

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!