Programación VB Operación de acumulación suma de 1~100, suma impar de 1~100, suma par de los tres, fórmula de programación completa

Subcomando privado1_Click()

Atenuar i como enteroDim a como enteroDim b como enteroDim c como enteroPara i = 1 a 100a = a iSi i Mod 2 = 0 Entoncesb = b iElsec = c iEnd IfNextPrint "La suma de 1~100 es:" amp; aPrint "La suma de los números pares 1~100 es:" amp; directamente