在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)

你把你的代码贴上来。
E.G.

Dim i As Integer
Do While i < 5
i = i + 1
MsgBox i
Loop

你试试这段。

也许你用了局部变量

Sub a()
Dim x As Integer
x = x + 1
End Sub

Sub b()
Dim x As Integer
MsgBox x
End Sub

这样当然是 0。这不是一个变量。

正确：

Dim x As Integer

Sub a()
x = x + 1
End Sub

Sub b()
MsgBox x
End Sub

如果x=x+1这样的形式不管用，那VB就没有其他的管用的方法了！应该是你的代码错了！