验证哥德巴赫猜想,将4~100的偶数分解为2个素数的和

Private Sub Command1_Click()
Dim n As Integer,i As Integer
n = Val(InputBox("N="))
For i = 2 To n / 2
If ss(i) And ss(n - i) Then Print n; "="; i; "+"; n - i
Next i
End Sub
Function ss(x As Integer) As Boolean
Dim i As Integer
ss = False
For i = 2 To Sqr(x)
If x Mod i = 0 Then Exit Function
Next i
ss = True
End Function