Red de conocimiento informático - Problemas con los teléfonos móviles - 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.

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.

Esta pregunta requiere primero escribir una función personalizada para encontrar números primos, como sigue:

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

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

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

上篇: Código fuente del servicio Telnet 下篇: Poder del WS91Y

Artículos populares