说明: Dim a, b, c, d, e, f, g, h, i As Integer Private Sub rmbCound(ByVal rmb As Double) a = Int(rmb / 100) b = Int((rmb - a * 100) / 50) c = Int((rmb - a * 100 - b * 50) / 10) d = Int((rmb - a * 100 - b * 50 - c * 10) / 5) e = Int((rmb - a * 100 - b * 50
<lixiujuansb> 上传 | 大小:477kb