Red de conocimiento informático - Problemas con los teléfonos móviles - Maestro de VB, ¿ayúdame a resolver estos dos problemas?

Maestro de VB, ¿ayúdame a resolver estos dos problemas?

Privado?Sub?Command1_Click()

Dim?i?As?Integer,?j?As?Integer,?n?As?Integer

Dim?ch?As?Boolean

¿Para?i?=?2?A?99

Para?j?=?2?A?p>

ch?=?False

Para?j?=?2?A?1

Si?i?Mod?j?=?0?Entonces

ch?=?True

¿Salir?Para

¿Fin?Si

Siguiente?j

Si?No?ch?Entonces

Imprimir ?i;

n?=?n?+?1

Si?n?Mod?Imprimir

Finalizar si

Siguiente i

Fin del sub