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

用得着那么复杂吗？

Dim s As String = "355/555"
Dim a As Integer = s.split("/")(0) '分子数
Dim b As Integer = s.split("/")(1)  '分母数
Dim c As Integer =  Math.Min(a,b)
If a > 1 And b > 1
    For i As Integer = c To 2 Step -1
        If b Mod i = 0 And a Mod i = 0
            Output.show(a/i & "/" & b/i )
            Exit For
        End If
        If i = 2
            Output.show(a & "/" & b)
        End If
    Next
End If