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

显示全部楼层 · 2011-9-11 09:05:55

你是找他们的循环节是吧？可以用下面的代码：text1中写被除数，text2中写除数，点击command1后在text3中显示商Private Sub Command1_Click()Dim IntYs As IntegerDim IntS As IntegerIntS = Int(Val(Text1) / Val(Text2))Text3 = IntS & "."IntYs = Val(Text1) Mod Val(Text2)k = 0Do While k < 1000k = k + 1Text3 = Text3 & Int(10 * IntYs / Val(Text2))IntYs = Qys(10 ...

千问 · 2011-9-11 09:05:55

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