PublicFunctionXtoF(strAsCurrency,OptionalfenmAsInteger=32)AsString'只限于整除分数. DimCfmAsCurrency DimcfmmodAsInteger OnErrorGoToErroreof  Cfm=1/fenm XtoF="" Ifstr=0ThenXtoF="":ExitFunction  DimpointAsInteger DimdIntAsString DimdPointAsCurrency D...