如何计算分数

[bubu198]

如何计算分数

[射天狼]

计算什么分数!?

[射天狼]

什么分数!!

[lihonggen0]

什么意思？

[wingchi]

同上

[10yue]

??????????????????

[danielinbiti]

分数，小数。是不是数学中的分数呀。
那只能转化为小数，用double精确度高点。

[txlicenhe]

楼主太不负责了。

[yo_jo]

要看您的要求了

[jlum99]

化整，求最小公约数，有以成的算法的。

[踏平扶桑]

是CSDN上的得分吗？
在专家得分里有详细的得分情况：）

[bbgbianbaogui]

将分数做为文本格式的。
将分数的分子、分母分离。
如果有繁分数先处理。
取出操作符。
将别一个分子、分母分离。
进行处理。
可以先用c或c++编写个操作符优先的问题，然后加在vb中。

[射天狼]

哈哈,看来大家的想象力可真够丰富的,能想出这么多~~

[konglin]

楼主同志：
莫要让大家无的放失。

[bubu198]

还用问吗？
当然是数学里的分数计算啦。真是世风日下，怎么脑袋瓜子里想的都是分！

大家再努力！否则100分给不出去了

[strongfisher]

那你也要给个前提啊
如： 是总分还是平均分。。。。。。
是统计还是。。。。。。

[snail2011]

数学里面的分数好多呀,你要怎么去实现,给个思路行不,
要具体实现的是什么功能的分数.

[acmo]

这个问题太莫名了

[射天狼]

晕,楼主出来冒个泡啊!!

[FrankWang]

'分数处理
a = 9
b = 27
If a > b Then c = a: a = b: c = b

'求最小公约数
Dim cc(1000) As Long
Dim dd(1000) As Long
ll = 0
For i = a To 1 Step -1
If a / i = Int(a / i) Then
cc(ll) = a / i
ll = ll + 1
End If
Next i
ll1 = ll
ll = 0
For i = b To 1 Step -1
If b / i = Int(b / i) Then
dd(ll) = b / i
ll = ll + 1
End If
Next i
If ll1 < ll Then
For i = 1 To ll1 - 1
For ii = 1 To ll - 1
If cc(i) = dd(ii) Then d = cc(i)
Next ii
Next i
Else
For i = 1 To ll - 1
For ii = 1 To ll1 - 1
If cc(i) = dd(ii) Then d = cc(i)
Next ii
Next i
End If
GO:
If b / a = Int(b / a) Then
Print a / d & "/" & b / d
Else
Print a & "/" & b
End If

[since1990]

up