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

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

'本代码参考chenyu001

'将人民币的数字表示转化成大写表示(C#版) 

'http://dev.csdn.net/article/28/28977.shtm

'改的不多,但愿这些改动没让原作者发怒

Public Class ChineseNum

    '输入字串

    Private _InputString As String

    '输出字串,如果无效则输出错误信息

    Private _OutString As String

    '判断输出字串是否有效

    Private _Valiad As Boolean

 

    Public WriteOnly Property InputString() As String

        Set(ByVal Value As String)

            _InputString = Value

            ConvertToChineseNum()

        End Set

    End Property

    Public ReadOnly Property Valiad() As Boolean

        Get

            Retu