求两数之间的素数，可是循环终止不了，代码如下：

private sub command1_click()
dim a%,b%,n%
a=inputbox("请输入整数a:")
b=inputbox("请输入整数b(b>a):")
n = a
m = 0
Do Until n > b
c = 0
For i = 2 To Sqr(n)
If n Mod i = 0 Then
c = 1
Exit For
End If
Next i
If c = 0 Then
Print n;
m = m + 1
End If
If m = 10 Then
m = 0
Print
End If
n = n + 1
Loop
End Sub
用子程序实现代码循环终止不了：

Sub ss(n, a, b)
n = a
m = 0
Do Until n > b
c = 0
For i = 2 To Sqr(n)
If n Mod i = 0 Then
c = 1
Exit For
End If
Next i
If c = 0 Then
Print n;
m = m + 1
End If
If m = 10 Then
m = 0
Print
End If
n = n + 1
Loop
End Sub

Private Sub Command1_Click()
Dim a, b, n As Integer
a=inputbox("请输入整数a:")
b=inputbox("请输入整数b(b>a):")

Call ss(n, a, b)

End Sub

输出3～1000之间的所有素数，并且输出它们的和值。要求使用for循环语句编写。 如何终止TC程序的死循环 求100到1000之间的素数 求出100至400之间的素数 2-100之间的素数(一点问题) 200到300之间的素数 输出1-100之间的所有素数。 判断100-200之间的素数 编程求100-200之间的素数 如何终止循环