《验证歌德巴赫猜想》由会员分享，可在线阅读，更多相关《验证歌德巴赫猜想（3页珍藏版）》请在金锄头文库上搜索。
1、验证歌德巴赫猜想 杭州市余杭实验中学 潘晓晓 歌德巴赫猜想：任何一个不小于 6 的偶数都可以分解成两个质数之和。 任务描述：任意输入一个不小于 6 的偶数，判断能否将该数分解为两个质数之和。若能， 输出这个质数；不能，输出提示“哥德巴赫猜想是错误的！”。程序功能描述：在文本框Textl中输入不小于6的偶数，点击“验证”命令按钮，若能 分为两个质数之各，通过 msgbox 输出这两个质数；不能，通过 msgbox 输出错误提示。本 程序要求熟练掌握do语句和if语句的使用，以及判断条件中逻辑值真假的变化。本程序界面：运行后，输入数值点击“验证”按钮后运行的界面如下：程序设计分析：本程序只有一个事
2、件，即点击按钮后进行分析、判断，所 以，所有代码都添加在 Commandl_Click()事件中。首先，要对Textl中输入的数进行校验，若小于6或不是偶数， 则提示“输入数值不符合要求，请重新输入！”，然后将 Text1 清空并退出。该部分程序代码 如下：n = Val(Textl.Text)If n 6 Or n Mod 2 0 ThenMsgBox (数值不符合要求，请重新输入！)Textl.Text = Exit subEnd if若输入数值符合要求如1000,则判断该数能否分解为两质数之和，即3和997、和995、 7和993499和501中是否存在两数都是质数。只要令k=3,5,7
3、499,若k和n-k同时 为质数，就输出；若到499也未能发现k和n-k这两个数则输出错误提示。判断一个数k是否质数，只要令i=3 to vk，若存在k mod i=0，则不是质数；若不存在则k是质数，n-k 亦然。代码如下：j = 3pr1 =TrueDo While i n / 2时则输出错误提示，用for语句无法完成这些功能，因而只能用do语句来循环。 全部代码如下：Private Sub Command1_Click()Dim n, k, i, j As Long, pr1, pr2 As Booleanpr1 = Falsepr2 = Falsen = Val(Text1.Text)
4、If n 6 Or n Mod 2 0 ThenMsgBox (数值不符合要求，请重新输入！)Text1.Text = Exit SubEnd Ifk = 1Do While k =n / 2 And (pr1 = False Or pr2 = False)pr1 = Truepr2 = Truek = k + 2i = 3j = 3 Do While i = Sqr(k) And pr1 = TrueIf k Mod i = 0 Thenpr1 = FalseElsei = i + 2End IfLoopDo While j n / 2 ThenMsgBox (找不到两个符合要求的质数，歌德巴赫猜想是错误的！) ElseMsgBox (两个质数分别是 & Str(k) & 和 & Str(n - k)End IfEnd Sub
