摘要： ' 将一个正数除以 y 返回一个整数或分数Function RFs(ByVal x As Integer) As String If x = 0 Then RFs = 0 Exit Function End If Dim div_result, div_... 阅读全文