Private Sub Command1_Click()
Print "100-200之间的素数:"
For i = 100 To 200
If isprime(i) Then
Print i;
k = k + 1
If k Mod 10 = 0 Then Print
End If
Next i
End Sub
Function isprime(n) As Boolean
For i = 2 To Sqr(n)
If n Mod i = 0 Then isprime = False: Exit Function
Next i
isprime = True
End Function
本文如未解决您的问题请添加抖音号:51dongshi(抖音搜索懂视),直接咨询即可。