------------------------分割线---------------------------------
Private Sub form_load()
Me.AutoRedraw = True
e = 1
For i = 999 To 100 Step -1
d = 0
For a = 2 To i
If i Mod a = 0 Then
Exit For
Else
d = d + 1
End If
Next
If d = i - 2 Then
Print i
e = e + 1
If e = 4 Then Exit Sub
End If
Next
End Sub
------------------------分割线---------------------------------
追问谢谢高手啦,不过还有一个小问题诶
If d = i - 2 Then---------这里为什么用d= i-2,不懂是什么意思
Print i
e = e + 1
If e = 4 Then Exit Sub
End If
Next
End Sub
追答d= i-2
因为循环语句 for a = 2 To i ,我是从2开始遍历数字的,所以要去掉2个没有被计算在内的数字
本回答被提问者采纳