主题：分数显示方式

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 = 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 = d1str * (den/y) + iif(d1str>0, num/y, -num/y) & "/" & den/y       '约分
End If
Return d2str