嗯嗯！也谢谢你啦！

那我去试试！谢谢你！

谢谢你！！！还有我想问一下，如果需要将小数点后面的小数部分进行格式化，如，一行输出10个或20个值，并且一个字符一个空格，是需要用计数器实现嘛。

明天就结贴。

感觉你问的不是vb问题，应该是c或python控制台下的问题，要用print输出？有点编程基础的，按你要求的格式输出不是问题，下面代码对昨天代码优化了，计算速度有很大提升（溢出危险大，除数不大于10000就没问题）。

Function div_high_sigle(a As Long, b As Long) As String
  Dim i As Long, j As Long, k As Long, c As String
  k = Int(a / b)
  j = a Mod b
  c = k & "."
  For i = 0 To 49
    j = j * 10000
    c = c & Format(Int(j / b), "0000")
    j = j Mod b
  Next
  div_high_sigle = c
End Function

Private Sub Command1_Click()
  Text1 = ""
  Text1 = div_high_sigle(1, 49)
End Sub

[此贴子已经被作者于2020-4-26 12:17编辑过]

这个题目原本是c语言的练习题，我们老师让我们用VB写出来。😂谢谢啦！

我不是计算机专业的，不过VB是必修课，所以编程基础，emm.😂

修改了一下代码，小数点后5个字符隔一个空格，20个字符换一行：
Function div_high_sigle(a As Long, b As Long) As String
  Dim i As Long, j As Long, k As Long, c As String
  k = Int(a / b)
  j = a Mod b
  c = k & "."
  For i = 0 To 49
    j = j * 10000
    c = c & Format(Int(j / b), "0000")
    j = j Mod b
  Next
  div_high_sigle = c
End Function

Private Sub Command1_Click()
Dim a
  Text1 = ""
  a1 = div_high_sigle(1, 49)
  a = Mid(a1, 3) '取小数点后的数字
  a2 = Left(a1, 2)
  Do While Len(a) > 0
  k = k + 1
  b = Mid(a, 1, 1)
  If k Mod 5 = 0 Then
  b1 = b1 & b & " "
  ElseIf k Mod 20 = 0 Then
  b1 = b1 & b & vbCrLf
  Else
  b1 = b1 & b
  End If
  a = Mid(a, 2)
  Loop
  Text1 = a2 & b1
End Sub

[此贴子已经被作者于2020-5-8 22:37编辑过]

下面是此程序计算的1/997的结果，倒数第34位开始循环了：（把可调用代码中的a,b分别输入1，997即可）
0.00100 30090 27081 24373
 11935 80742 22668 00401
20361 08324 97492 47743
 22968 90672 01604 81444
33299 89969 90972 91875
62688 06419 25777 33199
59879 63891 67502 50752
 25677 03109 32798 39518
55566 70010 03009 02708
12437 31193 58074 22266
如下是程序：（程序还是有问题，换不了行，需要调整，希望老师指点）
Function div_high_sigle(a As Long, b As Long) As String
  Dim i As Long, j As Long, k As Long, c As String
  k = Int(a / b)
  j = a Mod b
  c = k & "."
  For i = 0 To 49
    j = j * 10000
    c = c & Format(Int(j / b), "0000")
    j = j Mod b
  Next
  div_high_sigle = c
End Function

Private Sub Command1_Click()
Dim a
  Text1 = ""
  a1 = div_high_sigle(1, 997)
  a = Mid(a1, 3) '取小数点后的数字
  a2 = Left(a1, 2)
  Do While Len(a) > 0
  k = k + 1
  b = Mid(a, 1, 1)
  If k Mod 5 = 0 Then
  Text1 = Text1 & b & " "
  ElseIf k Mod 20 = 0 Then
  Text1 = Text1 & b & vbCrLf
  Else
  Text1 = Text1 & b
  End If
  a = Mid(a, 2)
  Loop
  Text1 = a2 & Text1
End Sub

这回对了，先换行再隔离空格，否则换不了行了，程序改定如下：
Function div_high_sigle(a As Long, b As Long) As String
  Dim i As Long, j As Long, k As Long, c As String
  k = Int(a / b)
  j = a Mod b
  c = k & "."
  For i = 0 To 49
    j = j * 10000
    c = c & Format(Int(j / b), "0000")
    j = j Mod b
  Next
  div_high_sigle = c
End Function

Private Sub Command1_Click()
Dim a
  Text1 = ""
  a1 = div_high_sigle(1, 49)
  a = Mid(a1, 3) '取小数点后的数字
  a2 = Left(a1, 2)
  Do While Len(a) > 0
  k = k + 1
  b = Mid(a, 1, 1)
  If k Mod 20 = 0 Then
  b1 = b1 & CStr(b) & vbCrLf
  ElseIf k Mod 5 = 0 Then
  b1 = b1 & CStr(b) & " "
  Else
  b1 = b1 & CStr(b)
  End If
  a = Mid(a, 2)
  Loop
  Text1 = a2 & b1
End Sub
'快速计算1/49能精确到点后200位的程序。