Question

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

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