vb programando la conjetura de Goldbach

Atenuar a como entero, b como entero, c como entero, d como entero

Subcomando privado1_Click()

Text1.Text = ""

d = 0

Para a = 6 A 100 Paso 2

Texto1.Text = Texto1.Text & a & "series"

Para c = 3 A a * 0.5

Si c = 3 O c = 5 O c = 7 O (c Mod 2 <> 0 Y c Mod 3 <> 0 Y c Mod 5 <> 0 Y c Mod 7 <> 0 Y (a - c) Mod 2 <> 0 Y (a - c) Mod 3 <> 0 Y (a - c) Mod 5 <> 0 Y (a - c) Mod 7 <> 0) o (a - c ) = 3 o (a - c ) = 5 o (a - c) = 7 Y (a - c) <> 1 Entonces

d = d + 1

Texto1. Texto = Texto1.Texto & 0 Y (a - c) Mod 5 <> 0 Y (a - c) Mod 7 <> 0)Texto = Texto1.Texto & a & "=" & c & "+" & (a - c) & " "

Finalizar si

Siguiente c

Texto1.Texto = Texto1.Texto & "Sí"