vb编写程序验证100以内数的哥德巴赫猜想（任意一个大于6的偶数可以表示成两个素数之和），要求素数

vb编写程序验证100以内数的哥德巴赫猜想（任意一个大于6的偶数可以表示成两个素数之和），要求素数

Private Sub Command1_Click()
  For i = 6 To 100 Step 2
    For j = 3 To i 2
      If prime(i1) And prime(i - j) Then
        List1.AddItem i & "=" & j & "+" & i - j
        Exit For
      End If
    Next j
  Next i
End Sub


Function prime(n)
  prime = False
  For i = 2 To Sqr(n)
    If n Mod i = 0 Then Exit Function
  Next i
  prime = True
End Function