Programación VB, la conjetura de Goldbach.

función IS_SUSHU(chkdata siempre) como juicio de número primo booleano

dim kk siempre

kk=3

dim i siempre que

i=kk

while(kklt;long(chkdata/kk) y chkdata mod kklt;gt;0)

kk=kk 2

wend

si chkdata mod kklt;gt;0 entonces

is_sushu=true

else

is_sushu=false

finalizar si

finalizar función

En cuanto a juzgar si un número par no menor a 6 cumple con los requisitos, se estima que pocas personas pueden hazlo ahora

Puedes encontrar un conjunto de matrices principales que cumplan las condiciones

función Get_Sushu2(oushu mientras, byref su1 mientras, byref su2 mientras)

{

si oushu mod 2lt；gt；0 entonces

get_sushu2=false

msgbox "Error de entrada, no es un número par"

terminar si

atenuar i siempre

get_sushu2=false

i=3

mientras ilt;=oushu- i y no get_sushu2

si is_sushu(i) y is_sushu(oushu-i) entonces

Get_Sushu2=true

su1=i

su2=oushu-i

terminar si

i=i 2

wend

}