改VB计算分数数组精确计算

改VB计算分数数组精确计算

Dim remainder%(100), quotienet%(100)
Sub main()
Dim m%, n%, i%, j%, t$
t = InputBox("please input a fraction(m/n) (<0m = Split(t, "/")(0)
n = Split(t, "/")(1)
Debug.Print t; " it's accuracy value is: 0.";
For i = 1 To 100
remainder(m) = i
m = m * 10
quotienet(i) = m  n
m = m Mod n
If (m = 0) Then
For j = 1 To i
Debug.Print quotienet(j);
Next
Exit For
End If
If (remainder(m) <> 0) Then
For j = 1 To i
Debug.Print quotienet(j);
Next
Debug.Print
Debug.Print "and it is a infinite cyclic fraction from "; remainder(m)
Debug.Print "digit to "; i; " digit after decimal point."
Exit For
End If
Next
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！