[填空题] 下列程序的功能是求出所有的1-100之间的孪生素数。孪生素数是指两个素数的差为 2,如3和5,11和13等,请填空。 Private Sub Form_Click()Dim i As I
15 查阅
[填空题] 下列程序的功能是求出所有的1-100之间的孪生素数。孪生素数是指两个素数的差为 2,如3和5,11和13等,请填空。
Private Sub Form_Click()
Dim i As Integer
For i = 3 To 97 Step 2
If 【9】 Then
Print i, i + 2
End If
Next i
End Sub
Public Funtion Prime (ByVal n As Integer) As Boolean
Dim i as Integer
For i = 2 To n - 1
If 【10】 Then
Exit For
End If
Next i
If i = n Then
Prime = True
Else
Prime = False
End If
End Function
参考答案: