- 博客(1)
- 收藏
- 关注
原创 如何求100以内的孪生素数
Private Sub Form_Click()f2 = Truep = 3For i = 5 To 97 Step 2For j = 2 To Sqr(i)If i Mod j = 0 Then Exit ForNext jIf j > Sqr(i) Then f2 = True Else f2 = FalseIf f2 = True And i - p = 2 ThenPrint i -
2007-07-24 17:46:00 4030
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人