Question

VB 计算并显示5/7、22/7等无限循环小数的值（精确到小数点后第1000及更多位数）

要符合图片哦

Answer 1

你是找他们的循环节是吧？可以用下面的代码：
text1中写被除数，text2中写除数，点击command1后在text3中显示商
Private Sub Command1_Click()
Dim IntYs As Integer
Dim IntS As Integer
IntS = Int(Val(Text1) / Val(Text2))
Text3 = IntS & "."
IntYs = Val(Text1) Mod Val(Text2)
k = 0
Do While k < 1000
k = k + 1
Text3 = Text3 & Int(10 * IntYs / Val(Text2))
IntYs = Qys(10 * IntYs, Val(Text2))
Loop
End Sub
Private Function Qys(IntBcs As Integer, IntCs As Integer) As Integer
Qys = IntBcs Mod IntCs
End Function
5/7=0.714285714285714285714285714285714285714285714285714285714285714285……循环节是714285
22/7=3.142857142857142857142857142857142857142857142857142857……循环节是142857
355/113=3.1415929203539823008849557522123893805309734513274336283185840707964601769911504424778761061946902654867256637168……循环节是1415929203539823008849557522123893805309734513274336283185840707964601769911504424778761061946902654867256637168，共112位

Answer 2

除以7后的小数循环，大多以 142857 小数循环，只是位置不同而己。
定位一下从哪个数字开始，然后就统统 142857 了。

建议用文本类型。