主题：如何用分数形式显示计算结果

这样试试（其实公式复杂并不可怕，与它没关系）：

 

Dim s,s1 As String
s = "-4*25/2/5/10*(-1)*1-1/600+5*5*5/125*(1/5+(-1/5))+1/600-41/7999-(-41/7999)-999/7999" '这里的下一行最好先判断一下该公式是否合法，否则提示公式错误并终止代码的执行！
Dim a,b,c,d As Integer
a = eval(s)
If a = 1 Or a = 0
    Output.show(a)
Else
    s1 = a
    s1 = s1.split("-")(1)
    b = s1
    For i As Integer = 1 To 100000000
        If i Mod b = 0 And (i/b) Mod b = 0
            c = i/b
            b = i
            Exit For
        End If
    Next
    d =  Math.Min(b,c)
    If a < 1
        s = "-"
    Else
        s = Nothing
    End If
    If b > 1 And c > 1
        For i As Integer = d To 2 Step -1
            If b Mod i = 0 And c Mod i = 0
                Output.show(s & b/i & "/" & c/i)
                Exit For
            End If
            If i = 2
                Output.show(s & b & "/" & c)
            End If
        Next
    End If
End If

测试题的正确答案是：7000/7999，不是1。

好像你不需要找最大公约数，而是要最大分母（加减号前用LastIndexOf("/")找到）。如果这样，4楼的方法可以解决：

output.show("=" & 7999*(eval(-4*25/2/5/10*(-1)*1-1/600+5*5*5/125*(1/5+(-1/5))+1/600))-41-(-41)-999 & "/" & 7999)

这样理解的：所有分母小于7999的都放在 7999*（这里面），然后加减同分母（7999）的分子（如：41，999等），将结果与【& "/" & 7999】合并即可。

 今天比较有空，帮楼主写了一个计算分数的小程序，测试有效。

 不过，只是简单测试了一下，由于定义了好一些运算规则，未能一一测试，楼主用实例去验证吧，有错的话，可以贴上来。

 代码写得较为粗糙，暂无时间重构，不过，可以用。希望楼主喜欢。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:分式运算.table