摘要：
1.在代码中写函数Function DxMnu(ByVal Money As String, Optional ByVal YB As Boolean = True) As String Dim X, Y As String Dim I As Integer Const Zimu = ".sbqwsbqysbqwsbq" ''定义位置代码 Const Letter = "0123456789sbqwy.zjf" ''定义汉字缩写 Const Upcase = "零壹贰叁肆伍陆柒捌玖拾佰仟万亿圆整角分" 阅读全文