本程序用于验证任何一个大于6的偶数均可以表示为2个素数的和。如：14=3+11，14=7+7。待验证的偶数从文本框TxtInput输入。所有满足上述条件的素数对（2个素数）都显示在窗体上。
Option Explicit
Private Sub Form_Click()
Dim n As Integer, i As Integer, j As Integer
n =            
For i = 3 To n - 2 Step 2
    If prime(i) Then
        If n - i >= i And prime(n - i) Then
            Print n; "="; i; "+"; n - i
        End If
    End If
Next i
End Sub
Private Function prime(n As Integer) As Boolean
Dim i As Integer, j As Integer, flg As Boolean
prime = False: flg = True
For i = 2 To Sqr(n)
    If n Mod i = 0 Then            
Next i
If           Then prime = True
End Function