¡Programación VB, rápida!

Función pública IsSushu(ByVal.pa.As.Integer).As.Boolean

Dim.pb.As.Integer.=.pa.-?1

Dim?res?As ?Boolean?=?True

Para?i?=?2?To?pb

Si?pa?Mod?i?=?0?Entonces

res?=?False

¿Salir?Para

Fin?Si

Siguiente?i

Regresar?res

¿Fin?Función

¿Privado?Sub?Button7_Click(ByVal?sender?As?System.Object,ByVal?e?As?System.EventArgs)?Handles?Button7.Click

¿Dim?

Dim?n?As?Integer

Dim?m?As?Integer

Dim?a(10)?As?Integer

¿Dim?temp?As?Integer

n?=?1

¿Hacer?Hasta?n?&?gt;?10

m?=?Int(Rnd()?*?900?+?100)

Si?EsSushu(m)?Entonces

a(n)?=?m

n?=?n?+?1

Fin?If

Bucle

For?i?=?1?To? 10

str?=?str?&?a(i)?&??"

str?=?str?&?vbCrLf

¿Para?i?=?1?A?10

¿Para?j?=?1?A?

Si?a(j)?

temp?=?a(j?+?1)

a(j?+?1)?=?a(j )

a(j)?=?temp

Fin?Si

Siguiente?j

Siguiente?i

str?=?str?&?"El número primo más grande es?"El número primo más grande es??El número primo más pequeño es?"?&?a(10)

TextBox6.Text ?=? str

End?Sub

Resultados en ejecución:

797 811 521 683 337 919 617 443 953 461

El máximo El número primo es 953. El mínimo El número primo es 337