Problemas matemáticos de programación VB

'Primera pregunta

¿Privada?Sub?Command1_Click()

Dim?P,?I,?J,?JC

P?=?0

¿Para?I?=?1?A?9?Paso?2

JC?=?1

Para?J ? =?1?A?I

JC?=?JC?*?J

Siguiente?J

P?=?P?+?JC

¿Siguiente?I

Texto1.Texto?=?P

Fin?Sub

'Segunda pregunta

Privado?Sub?Command2_Click()

Dim?M,?N,?S

S?=?0

N?=?0

¿Para?M?=?1?A?100

Si?M?Mod?7?=?0?Entonces

N?=?N? 1

S?=?S?+?N

Fin?Si

Siguiente?M

Texto2.Texto =? N

Texto3.Texto?=?S

Fin?Sub