用VB编程序验证哥德巴赫猜想,即一个大于等于6的偶数可以表示为两个素数之和尽量别用太复杂高端的语句,我们很多都没学过Private Sub Form_Click()Dim a As Long,b As Long,c As Long,i As Long,t As Longc = a - b

来源：学生作业帮助网编辑：作业帮时间：2024/12/01 03:29:16

x��Sko�P�+o�T�"�} @��K��WC;�'��3��]4`�%:�,�K\% e c��/<=в-.M�Ť9}��y�k#Z�zS]��~�Z�-�-�ky�X'��k��n��͖H -��fvj��KvNX��w��$%�<�؇U��5;�)3�u��-�:O��l��,)3�=��Dl�AJ��^�'�H/G��S��4>�g�:z��I�[��<��B��?�V �i�U�G��!�C�C�E2D٥HI^W�<�?��+\��n�[2��W�)!�h�xJ�>��M^T�N�4K��̪� F)&��L*K�U� ��9+��ľBp_��s� �Fy`��Tܲ�t��SrИ�d�I��*�*�=��x�s|$��y��e��~�ĽdA�*!� sff<4��?ӟa-�/� �m��~�0�>��HP�E��_��m��1m턹��n��+785$��Y��^�*�K�UP!nDΌ�1h �e%p��݉�톑��ev�<��ZB�9�� 2�)

用VB编程序验证哥德巴赫猜想,即一个大于等于6的偶数可以表示为两个素数之和尽量别用太复杂高端的语句,我们很多都没学过Private Sub Form_Click()Dim a As Long,b As Long,c As Long,i As Long,t As Longc = a - b
用VB编程序验证哥德巴赫猜想,即一个大于等于6的偶数可以表示为两个素数之和
尽量别用太复杂高端的语句,我们很多都没学过
Private Sub Form_Click()
Dim a As Long,b As Long,c As Long,i As Long,t As Long
c = a - b
Do
a = Val(InputBox("输入不小于6的偶数"))
Loop 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 Form_Click()Dim a As Long,b As Long,c As Long,i As Long,t As Longc = a - b
思路与方法:
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