Question

求高人帮我看看一道普通VB题目！

两质数的差为2，则称此对质数为 质数对，找出100以内的质数对 并在 picturebox中 按行成对显示质数对~

帮我写下代码~谢谢~

Answer 1

 

 

Function isprime(Num As Long) As Boolean

If Num < 2 Then isprime = False: Exit Function

Dim i As Long

For i = 2 To Sqr(Num)

If (Num Mod i) = 0 Then

isprime = False

Exit Function

End If

Next i

isprime = True

End Function

 

Private Sub Command1_Click()

Dim i As Long

i = 3

Do

 If isprime(i) And isprime(i + 2) Then Picture1.Print i, i + 2

 i = i + 2

Loop Until i = 99

End Sub

Answer 2

For i = 2 To 100
For j = 2 To Sqr(i)
If i Mod j = 0 Then Exit For
Next
If j > Sqr(i) Then

Print iNext

追问

语句块有点问题……没有End if

追答

加到最后