vb求1000到2000范围内的所有素数的这和
发布网友
发布时间：12小时前
共1个回答
热心网友
时间：12小时前
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
