Question

写了代码之后再列表框中输出不出来

Private Sub Form_Activate()
Dim i, j, n As Integer, flag As Boolean
flag = False
For n = 6 To 100 Step 2
For i = 2 To n / 2
For j = 2 To Sqr(i)
If i Mod j = 0 Then
flag = True
End If
Next j
For j = 2 To Sqr(n - i)
If i Mod j = 0 Then
flag = True
End If
Next j
If flag = False Then
List1.AddItem n & "=" & i & "+" & (n - i)
Exit For
End If
Next i
Next n

End Sub

Answer 1

你是要干嘛？验证两个数相加等于某个数？如果你把“If flag = False”改为“If flag = True”则列表框会出现内容。不出现是因为你根本无法使得 flag = False

追问

目的是在列表框中输出 100以内歌德巴赫猜想 就是一个偶数可以分解成两个素数的和 拜托帮忙看一下(⊙_⊙)

追答

This is my Goldbach's conjecture, .NET version. You can use it as reference.