本程序用于验证任何一个大于6的偶数均可以表示为2个素数的和。如：14=3+11，14=7+7。待验证的偶数从文...
问答题本程序用于验证任何一个大于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
