主题：FoxTable中如何将小数转化为分式?

这个是表示成带分数的代码
思路是0.75 先写成 75/100
求最大公约数25  然后约分

Dim d As Double = -11.75           '要转化的小数
Dim d1str As String                    '最后结果的整数部分
Dim d2str As String                    '最后结果的分数部分

Dim d1 As Integer = Math.Truncate(d)        'd的整数部分,包括符号
If d1 <> 0 Then d1Str = d1                       '如果整数部分不为0,则保存下来

If d.ToString.IndexOf(".") > -1 Then           '如果有小数部分不为0
    Dim d2 As Integer = d.ToString.Split(".")(1)            '取得小数部分
    Dim n As Integer = d2.ToString.Length  '小数位数
    Dim num As Integer = d2                      '分子,未约分
    Dim den As Integer = 10^n                   '分母,未约分
    Dim x As Integer = num
    Dim y As Integer = den
    Dim temp As Integer
    Do While x <> 0                   'Do Loop 求最大公约数
        temp = y Mod x
        y = x
        x = temp
    Loop                              '循环结束,最大公约数保存在变量y中
    d2str = num/y & "/" & den/y       '约分
End If
Return d1str & " " & d2str