VB 프로그램 을 통 해 고 드 바 흐 의 추측 을 검증 했다. 즉, 6 이상 의 짝수 가 두 소수 의 합 이 라 고 할 수 있다. 될 수 있 는 대로 너무 복잡 하고 고 급 스 러 운 말 을 쓰 지 마라. 우 리 는 많은 것 을 배우 지 못 했다. Private Sub FormClick () Dim a As Long, b As Long, c As Long, i As Long, t As Long c = a - b Do. a = Val (Input Box) Lop Until a > = 6 And a Mod 2 = 0 If (b = 2 or b = 3) And (c = 2 or c = 3) Then Print a + "=" + b + "+" + c Else For i = 2 To Sqr (b) If b Mod i = 0 Then For t = 2 To Sqr (c) If c Mod t = 0 Then Print a + "=" + b + "+" + c Next t Next i If i > Sqr (b) Then If t > Sqr (c) Then Print a + '=' + b + '+' + c End If End If End Sub 수정 을 구하 다

VB 프로그램 을 통 해 고 드 바 흐 의 추측 을 검증 했다. 즉, 6 이상 의 짝수 가 두 소수 의 합 이 라 고 할 수 있다. 될 수 있 는 대로 너무 복잡 하고 고 급 스 러 운 말 을 쓰 지 마라. 우 리 는 많은 것 을 배우 지 못 했다. Private Sub FormClick () Dim a As Long, b As Long, c As Long, i As Long, t As Long c = a - b Do. a = Val (Input Box) Lop Until a > = 6 And a Mod 2 = 0 If (b = 2 or b = 3) And (c = 2 or c = 3) Then Print a + "=" + b + "+" + c Else For i = 2 To Sqr (b) If b Mod i = 0 Then For t = 2 To Sqr (c) If c Mod t = 0 Then Print a + "=" + b + "+" + c Next t Next i If i > Sqr (b) Then If t > Sqr (c) Then Print a + '=' + b + '+' + c End If End If End Sub 수정 을 구하 다

아이디어 와 방법:
1. 6 보다 큰 짝수 n 을 입력 하 십시오.
2, 순환 적용:
For i = 2 to n - 2
if i 는 소수 And n - i 는 소수 Then 입 니 다.
출력: i, n - i
Exit For
End If
Next i