suma=1 3 5 ...... 99 Cómo programar con VB

dim sum como entero, i como entero

suma = 0

para i = 1 a 99 paso 2

suma = suma i

siguiente i

Ahora la suma acumulada se almacena en sum, solo necesita generar su valor:

msgbox "1 3 5. .. 99 = " amp; sum, vbOK 'Usar salida de función de mensaje

o

imprimir "1 3 5 ... 99 = " amp; sum 'Salida a salida estándar