编写一个过程用来判断某个整数是否是素数，再编写一个过程用来判断1000以内是否存在连续素数（两数相差为2），如果存在则把他们输出出来。

给钱么

仅供参考。
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
ss2()
End Sub
Sub ss2()
Dim f As Boolean
For i = 2 To 1000
ss(i, f)
If f Then
ss(i + 2, f)
If f Then
ListBox1.Items.Add(i & " " & i + 2)
i = i + 2
End If
End If
Next
End Sub
Sub ss(ByVal n, ByRef f)
f = True
For i = 2 To Math.Sqrt(n)
If n Mod i = 0 Then f = False
Next
End Sub
End Class