如何显示分数不是小数格式

Question

比如
a=1/2
我想输出是1/2,而不是0.5，怎么才可以？

Answer 1

Private Sub Command1_Click()
Dim a As String
a = "1/2"
Print a
End Sub

Answer 2

Option Explicit
Private Function Test(a As Single) As String
    Dim strTmp As String
    Dim strTmp1 As String
    Dim intTmp As Integer
    Dim intA As Integer
    Dim intB As Integer
    Dim intC As Integer
    strTmp = Str(a)
    strTmp1 = Left(strTmp, InStr(1, strTmp, ".") - 1)
    strTmp = Right(strTmp, Len(strTmp) - InStr(1, strTmp, "."))
    intA = Val(strTmp)
    intB = 10 ^ Len(strTmp)
    intC = G_cd(intA, intB)
    If strTmp1 <> " " Then Test = strTmp1 & " + "
    Test = Test & intA / intC & "/" & intB / intC
End FunctionPrivate Function G_cd(ByVal a As Integer, ByVal b As Integer) As Integer
    If a = 0 Then
        G_cd = b
    End If
    If b = 0 Then
        G_cd = a
    End If
    If a > b Then
        Swap a, b
    End If
    Dim c As Integer
    Do
        c = a Mod b
        a = b
        b = c
        DoEvents
    Loop While c > 0
    G_cd = a
End FunctionPrivate Sub Swap(a As Integer, b As Integer)
    Dim c As Integer
    c = a
    a = b
    b = c
End Sub测试用例：
Debug.Print Test(0.5)
Debug.Print Test(0.125)
Debug.Print Test(6.008)测试输出：
1/2
1/8
6 + 1/125

Answer 3

呵呵，chewinggum(口香糖·把减肥列入下一个五年计划)才完全正确

Answer 4

郁闷，欧几里德算法获得最大公约数的算法G_cd原本没有下划线，但是会被论坛过滤。
上面的这段代码仅仅是一个示例，在数字范围上存在一定限制，希望搂主自行优化

Answer 5

这个得自己手动写个函数，来慢慢算了。
chewinggum(口香糖·把减肥列入下一个五年计划)那个有现成的，效果不错。
不过比如0.33333333333这种，他不会智能到显示1/3吧，那就有些厉害了。

Answer 6

太长了罢 chewinggumfunction Friction(Fri) {
max = 0.01;
i = 1;
var str;
dd = Math.round(i/Fri);
while (Math.abs((i/Fri)-dd)>max) {
i = i+1;
}
str = i+"/"+Math.round(i/Fri);
return (str);
}
cc=1/8
trace(Friction(0.333333333333333333333333333333333));
把 高手段代码改了格式，变成flash

Answer 7

seu31199113(Tony)寫的 ﹐高手
////////////////////////////////////////////
谢谢楼主给我灵感，我刚学VB一个星期！
=======
测试过了：str = Friction(0.142857142857)  结果是： 1/7
=======
Public Function Friction(Fri As Single) As String
Const MAX = 0.01
Dim i As Integer
Dim str As String
i = 1
While Abs((i / Fri) - Round((i / Fri), 0)) > MAX
  i = i + 1
Wend
str = i & "/" & Round(i / Fri)
Friction = strEnd Function
//////////////////////////

Answer 8

layola(娉娉) 算得比较好,呵呵

Answer 9

呀,我那段代码不能对付比如好像大于1的分数阿.那位大人帮忙该下.谢谢~
------------------
可以的,稍做修改:
Function Friction(Fri As Single, Optional digit As Integer = 2) As String
Dim i As Integer
Dim str As String
i = 1
While Abs((i / Fri) - Round((i / Fri), 0)) > 10 ^ (-digit)
  i = i + 1
Wend
str = i & "/" & Round(i / Fri)
Friction = str
End Function
Private Sub Form_Load()
MsgBox Friction(3.14159, 2) & vbCrLf & Friction(3.14159, 4)'返回PI的疏率和密率
End Sub

Answer 10

多谢 northwolves(狼行天下) 
你段代码无事,我想问下我段代码为什么遇到2/3会死机?

Answer 11

多谢 northwolves(狼行天下) 
你段代码无事,我想问下我段代码为什么遇到2/3会死机?
---------------------------------------------------没有你说的情况Function Friction(Fri As Single) As String
Const MAX = 0.01
Dim i As Integer
Dim str As String
i = 1
While Abs((i / Fri) - Round((i / Fri), 0)) > MAX
  i = i + 1
Wend
str = i & "/" & Round(i / Fri)
Friction = strEnd FunctionPrivate Sub Command1_Click()
MsgBox Friction(0.6666666)
End Sub