UC知道找出3-1000之间的孪生素数对
来源：百度知道 编辑：UC知道 时间：2024/07/04 23:13:46
请问空格里该怎么填
Function su(n)
su = True
j = Sqr(n)
For I = 2 To j
If n Mod I = 0 Then
su = False
Exit For
End If
Next I
End Function
Private Sub form_click()
m = 0
k = 0
For I = 3 To 1000
If __________ Then
If __________ Then
Print m , j
k = k + 1
End if
__________
End if
next i
print k
End sub
Function su(n)
su = True
j = Sqr(n)
For I = 2 To j
If n Mod I = 0 Then
su = False
Exit For
End If
Next I
End Function
Private Sub form_click()
m = 0
k = 0
For I = 3 To 1000
If __________ Then
If __________ Then
Print m , j
k = k + 1
End if
__________
End if
next i
print k
End sub
确定题目没抄错？
Private Sub form_click()
m = 0
k = 0
For i = 3 To 1000
m = i: j = i + 2
If su(m) Then
If su(j) Then
Print m, j
k = k + 1
End If
End If
Next i
Print k
End Sub
Private Sub form_click()
m = 0
k = 0
For i = 3 To 1000
If su(i) = True Then '第一个空
If su(i + 2) = True Then'第二个空
m = i: j = i + 2 '__________第三个空应该在这里。
Debug.Print m, j
k = k + 1
End If
End If
Next i
Print k
End Sub