加急!VB一道改错题,本程序将一个大于100的偶数n分解为两个素数之和,'其中nflag逻辑函数用于判断自然数x是否为素数.'------------------------------------------------OptionExplicitPrivateSubFormClick()DimnAs

Question

加急!VB一道改错题,
本程序将一个大于100的偶数n分解为两个素数之和,
' 其中nflag逻辑函数用于判断自然数x是否为素数.
'------------------------------------------------
Option Explicit
Private Sub Form_Click()
Dim n As Integer,x As Integer,y As Integer
n = Val(InputBox("请输入一个大于100的偶数","输入数据",100))
For x = 3 To n \ 2 Step 2
'下面一句有错误.
我实在搞不懂数学思想是什么.帮我讲讲原理和程序意思.
为什么要这么算呢

Answer 1

Option Explicit
Private Sub Form_Click()
Dim n As Integer,x As Integer,y As Integer
n = Val(InputBox("请输入一个大于100的偶数","输入数据",100))
For x = 3 To n \ 2 Step 2
'
If x Mod k = 0 Then flag = False:Exit Do
k = k + 1
Loop
nflag = flag
End Function