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