Private Sub Form_Click()
Dim t As Boolean
For x = 101 To 200 Step 2
t = ture
For i = 2 To x - 1
If x Mod i = 0 Then t = False
Next i
If t Then
k = k + 1
Print x;
If k Mod 10 = 0 Then Print
End If
Next x
End Sub
这个是求100到200间素数的,可是为什么不好使?帮个忙,谢了
Private Sub Form_Click()Dim t As BooleanFor x = 101 To 200 Step 2t = tureFor i = 2 To x - 1If x Mod i = 0 Then t = FalseNext iIf Not t Then
'这里改下就可以了k = k
Private Sub form_Click()For x = 100 To 200
For i = 2 To Int(Sqr(x))
If x Mod i = 0 Then Exit For
Next iIf i >= Int(Sqr(x)) Then k = k + 1: Print x;If k > 0 And