ConststrN="零壹贰叁肆伍陆柒捌玖" ConststrG="拾佰仟万亿" ConstintN="0123456789" DimZero_CountAsLong'读零计数 ' PrivateFunctionGetN(ByValNAsLong)AsString GetN=Mid(strN,N+1,1) EndFunction PrivateFunctionGetG(ByValGAsLong)AsString SelectCaseG Case1 GetG="" Case2,6 GetG=Mid(strG,