题目：求1——10中相邻两数之和是素数的所有自然数对。(1，2)、(2，3)、(3，4)、(5，6)、(6，7)、(8，9)、(9，10)为符合和要求的数对。
答：
源代码：
Option Explicit

Private Sub Form_Click() 
   Dim a(10) as integer，i as integer 
   For i=1 To 10 
      a(i)=i 
   Next i 
   For i=1 To 9 
      If p(a(i)+a(i+1))=True Then Print a(i),a(i+1) 
   Next i
End Sub

Private Function p(x As Integer) As Boolean 
   Dim i As Integer 
   p=False 
   For i=2 To Int(Sqr(x)) 
      If x Mod i=0 Then Exit Function   
   Next i 
   p=True
End Function