Cómo acumular en vb

1) Encuentra la suma acumulada de una secuencia, como suma = 1 + 2 + 3 + ... + 100Dim?i?As?Integer

Dim?sum?As ?Entero

'?Asignar valor inicial

suma?=?0?

'?Bucle para encontrar la suma acumulada de la secuencia

Para ?i?=?1?To?100

suma?=?sum?+?i

'?Mostrar resultados

MsgBox?"1?+?2?+?3?+...+?100?=?"?+?CStr(sum)

2) Encuentra la suma acumulada de todos los elementos de una matriz Dim?a(1?To?5)?As?Integer

Dim?sum?As?Integer

Dim?i?As?Integer

' ?Asignar un valor al array

a(1)?=?1

a(2)?=?23

a (3)?=?8

a(4)?=?50

a(5)?=?99

'?Asignar valor inicial

sum? =?0

'?Bucle para encontrar la suma acumulada de la matriz

For?i?=?1?To?5

suma?=?suma? +?a(i)

MsgBox?"La suma acumulada de la matriz es: "?+?CStr(suma)