验证哥德巴赫猜想,将4~100的偶数分解为2个素数的和请用BASIC语言编写,

网友回答

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 iEnd 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 iss = True
End Function