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

dim s,i as integer 最好写成 dim s as integer,i as integer

设置窗体的AutoRedraw 属性为 True，可以在form_load中这么写

Me.AutoRedraw = True

---