在vb中怎样累加

1）求一个数列的累加和，如求 sum = 1 + 2 + 3 + ... + 100

Dim i As Integer

Dim sum As Integer

' 赋初值

sum = 0 

' 循环，求数列的累积和

For i = 1 To 100

    sum = sum + i

Next

' 显示结果

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

2）求一个数组所有元素的累加和

Dim a(1 To 5) As Integer

Dim sum As Integer

Dim i As Integer

' 给数组赋值

a(1) = 1

a(2) = 23

a(3) = 8

a(4) = 50

a(5) = 99

' 赋初值

sum = 0

' 循环，求数组的累积和

For i = 1 To 5

    sum = sum + a(i)

Next

MsgBox "数组的累加和为：" + CStr(sum)

1、首先开始编写代码，定义变量，如下图所示。

2、这是一个累加程序，所以会用到相关的累加语句,此题使用For-Next循环语句。具体编写如下图所示。

3、不仅仅需要一个For-Next循环语句，还需要在里面嵌套一个For-Next循环语句。

4、最后将剩下的代码补齐，编写完整的代码如下图所示。

5、然后运行程序，输入一个值检验一下。如果n为8，则1！+2!+3!+4!.......+8!=46233，就完成了。

---