En la programación VB, todos los números pares entre 6 y 100 se expresan como la suma de dos números primos y los resultados se muestran en el cuadro de lista. La etiqueta 1 se utiliza para mostrar cuántos pares de números primos hay. la suma.
1. Abra VB, dibuje un control ListBox llamado List1 y luego dibuje un control Label llamado Label1
2. Dibuja un control Command llamado Command1
3. Haga doble clic en Command1. e ingrese el siguiente código:
Función PDsu(a As Integer) As Integer
Dim b As Integer:Dim i As Integer
Si a < = 3 Entonces
PDsu = 1
Si no
b = a\ 2
Para i = 2 To b
Si (a Mod i) = 0 Entonces
PDsu = 0: Salir de la función
Salir para
Finalizar si
Siguiente i
PDsu = 1
Finalizar si
Finalizar función
Subcomando privado1_Click()
Dimm como entero p >
Atenuar n como un número entero
Atenuar i como un número entero
Atenuar s como un número entero
s = 0
Para i = 6 a 100 Paso 2
Para m = 2 a i -2
n = 0
Para m = 2 a i -22 p>
n = i - m
Si (PDsu(m) = 1) y (PDsu(n) = 1) entonces
Lista1.p>
List1.AddItem Str(i) & "=" & Str(m) & "+" & Str(n): s = s + 1
Salir para
Finalizar si
Siguiente m
Siguiente i
Label1.Caption = "Entre 6-100 **** hay " & Str(s) & "pares de sumas primas"
End Sub
4. Si la entrada de la operación es correcta, se pueden mostrar resultados normales, **** hay 48 pares de sumas primas
End Sub
4. p>
Nota: Me tomó alrededor de 10 minutos responder esta pregunta, dame puntos extra