VB ingresa dos números enteros positivos xey desde el teclado y encuentra la suma de todos los números pares entre xey.

Privado?Sub?Command1_Click() Dim?x?As?Integer,?y?As?Integer,?s?As?Integer,?i?As?Integer x?=?InputBox("x=") y?=? InputBox("y=") Si?x?Mod?2?=?1?Entonces?x?=?x?+?1 Para?i?=?x?To?y?Paso?2

s?=?s?+?i Siguiente?i Imprimir?"Sum=";?s

Fin?Sub

Privado?Sub?Command2_Click() Dim?x ?Como?Entero,?y?Como?Entero,?s?Como?Entero,?i?Como?Entero x?=?InputBox("x=") y?=?InputBox("y=") Si?x ?Mod?2?=?1?Entonces?x?=?x?+?1 i?=?x Mientras?i?<=?y

s?=?s?+?i

i?=?i?+?2 Wend Print?"Sum= ";?s

Fin?Sub

Privado?Sub?Command3_Click() Atenuado ?x?Como?Entero,?y?Como?Entero,?s?Como?Entero,?i?Como?Entero x?InputBox("x=") y?=?InputBox("y=") Si?x ?Mod?2?=?1?Entonces?x?=?x?+?1 ¿

s?=?s?+?i

i?=?i? +?2 ¿Bucle?While?i?<=?y Imprimir?"Sum=";?s

Fin?Sub

Privado?Sub?Command4_Click() Dim?x? ¿Como?Entero,?y?Como?Entero,?s?Como?Entero,?i?Como?Entero x?=?InputBox("x=") y?=?InputBox("y=") Si?x? ¿Mod?2?=?1?Entonces?x?=?x?+?1 Si?y?Mod?2?=?1?Entonces?y?=?y?-?1 s?=?(x?+ ?y)?*s?=?(y?-?x?+?2)?/?2?/?2 Imprimir?"Sum=";?s

Fin?