Red de conocimiento informático - Problemas con los teléfonos móviles - Problema de programación VB: ¡Urgente! Entre los números primos hasta 100, encuentre el par de primos que contiene el mayor número de compuestos (o el intervalo más grande).

Problema de programación VB: ¡Urgente! Entre los números primos hasta 100, encuentre el par de primos que contiene el mayor número de compuestos (o el intervalo más grande).

Private?Sub?Command1_Click() List1.Clear Me.Caption?=?"Encontrar el par de números primos adyacentes con el intervalo más grande entre 100 números primos" Dim?Flag?As?Boolean,?MaximumInterval?As?Integer,?Subscript ? Como?Entero Para?i?=?2?A?100

Marca?=?Verdadero

Para?j?=?2?A?Sqr(i) Si? i ?Mod?j?=?0?Entonces

Marcar?=?Falso

¿Salir?Para finalizar?Si

Siguiente?j

Si?Bandera?Entonces Lista1.AddItem?i

Fin?Si Siguiente?i Intervalo Máximo?=?0 Subíndice?=?0 ¿Para?i?=?0?A?List1.ListCount? - ?2

Si?Val(List1.List(i? ?1))?-? ¿Val(Lista1.Lista(i))? gt;? ¿Intervalo máximo? Entonces ¿intervalo máximo? =? Lista1.Lista(i? ?1)? -?List1.List(i) Subíndice?=?i

Fin?Si Siguiente?i Texto1.Text?=?"El par de números primos adyacentes con mayor distancia es: "?amp;? Lista1 .Lista(Subíndice? ?1)?" y "?Lista1.Lista(Subíndice? ?1)?"

Fin?

Fin