vb求1000到2000范围内的所有素数的这和

发布网友发布时间：2024-10-24 19:06

共1个回答

热心网友时间：2024-10-24 19:05

Private Sub Form_Click()
Dim i As Integer, j As Integer, n As Long
For i = 1000 To 2000
For j = 2 To Int(Sqr(i))
If i Mod j = 0 Then Exit For
Next
If j > Int(Sqr(i)) Then n = n + i

Next
Print n
End Sub

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com