La tercera pregunta de VB, solicite el código de cada control. Puede tomar una captura de pantalla, escribirla a mano o copiarla y pegarla. ¡Estoy esperando en línea para pedirle ayuda al maestro! ! !

Pregunta 1:

¿Privada?Función?Circunferencia(ByVal?r?As?Single)?As?Single

Retorno?2?*?PI ? *?r

¿Fin?Función

¿Privada?Función?área(ByVal?r?As?Single)?As?Single

Retorno?PI? ?r?*?r

¿Fin?Función

La tercera pregunta:

¿Privada?Función?reversa(ByVal?m?As?Long)? ?Long

m?=?StrReverse(m)

Retorno?m

Fin?Función

Segunda pregunta:

¿Función?Pública?Isprime(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