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.