主要对一些分式计算进行操作.下面的代码演示一个简单计算过程, 目前主要支持Fraction开头相关的函数.

Public Sub test()
    '创建一个分式 x = 12358/58645688752
    Dim x As New ClassFraction("12358", 58645688752)

    ' 对x进行运算,目前支持常规的+-*/^
    Dim y As ClassFraction = x^12 + 5896 *  x

    '显示y的分式表达式
    MessageBox.Show(y.ToString)
    
    '以100位浮点数有效位的形式显示y
    Dim f As String = FractionToFloat(y, 100)
    MessageBox.Show(f) 
End Sub