- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 请教各位前辈指点! (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83706)
-- 发布时间：2016/4/14 23:28:00
-- 请教各位前辈指点!
此主题相关图片如下：错误提示.png
各位前辈:您们好!那位指点一下我.谢谢!
-- 发布时间：2016/4/15 8:40:00
--
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
-- 发布时间：2016/4/15 16:11:00
--
Post By: 谢谢!谢谢您 指点!