UC知道在vb中怎样累加
来源：百度知道 编辑：UC知道 时间：2024/05/05 18:21:55
在vb中怎样实现累加？注意：我已经试过了x=x+1，但是不管用！
我是了几次，原来是在另一个按钮上赋的值到另一个按钮上看却为零！
我是了几次，原来是在另一个按钮上赋的值到另一个按钮上看却为零！
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&nbs