用VB验证哥德巴赫猜想,任何一个大于6的偶数,均表示为两个素数之和,

题目

用VB验证哥德巴赫猜想,任何一个大于6的偶数,均表示为两个素数之和,
要求从键盘输入一个大于6的偶数,打印出分解的结果.

答案

Dim i,j,n As Integer,flag As BooleanPrivate Sub Command1_Click()n = Text1.TextFor i = 2 To n / 2flag = FalseFor j = 2 To Sqr(i)If i Mod j = 0 Thenflag = TrueEnd IfNext jFor j = 2 To Sqr(n - i)If i Mod...