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í"