Red de conocimiento informático - Problemas con los teléfonos móviles - Lenguaje VB: encuentre todos los números primos hasta 100, cuéntelos y generelos en unidades de 5 por línea. ¡Solicita un código!

Lenguaje VB: encuentre todos los números primos hasta 100, cuéntelos y generelos en unidades de 5 por línea. ¡Solicita un código!

****Hay 25 números primos.

¿Público?Clase?Form1

Dim?n?As?Int16?=?0

Privado?Sub?Button2_Click(ByVal?Sender?As?System .Objeto, ByVal?e?As? System.EventArgs)?Handles?Button2.Click

TextBox1.Text?=?PrimeNumber(2,?100)

MsgBox("* ** tiene número primo: "? amp;?n?amp;?" individuos.")

End?Sub

Función?PrimeNumber(ByVal?startNum?As?Long, ?ByVal?endNum?As?Long)?As?String

Dim?str?As?String?=?""

Dim?i?As?Long

Dim?j?As?Long

Dim?yn?As?Boolean?=?True

For?j =?2?To?Int( Math.Sqrt( j))

¿Si?

Si n=5

Si?=?0?Entonces

str?=?str? amp;?j?amp;? vbCrLf

Else

str?=?str?amp;?,"

Fin?Si

nxt:

Siguiente

Retorno?str

¿Fin?Función

¿Fin?Clase.