主题：请教各位前辈指点!

各位前辈:您们好!那位指点一下我.谢谢!

Dim d As Decimal = 36.0

Dim s() As String = d.ToString().split(".")

If s.Length = 1 Then

    Output.Show(s(0))

Else

    Dim b As Long = CInt(s(1))  

    Dim a As Long  = 10 ^ s(1).Length   

    Dim c As Long  = a Mod b

    Dim x = a

    Dim y = b

    Do While c <> 0

        a=b

        b=c

        c = a Mod b

    Loop

    Dim r = s(0) & "." & y/b & "/" & x/b

    Output.Show(r)

End If