怎样用vb求和

你的问题不够具体…那么我给你一个例子，你参考下:

Private

Sub

Form_Load()

Dim

a(1

To

50)

Show

For

i=1

To

50

a(i)=101*RND

sum=sum+a(i)

Next

i

Print

sum

End

Sub

以上希望能给你帮助，求和主要是用到循环，可以用For和Do。

可以使用循环来实现这个算法，具体的VB程序设计语言描述如下：

Dim sum As Integer ' 定义一个变量来保存求和结果

sum = 0 ' 初始化求和结果为0

For i As Integer = 10 To 300 Step 10 ' 循环10到300，每次增加10

sum = sum + i ' 将当前循环变量的值加入求和结果中

Next

MsgBox "10+20+30+...+300 = " &sum ' d出对话框显示求和结果

上述代码中，首先定义了一个变量sum用来保存求和结果，并将其初始化为0。然后使用For循环从10开始到300，每次增加10，将循环变量的值加入求和结果中。最后使用MsgBox函数d出一个对话框，显示求和结果。

当程序执行完毕后，会d出一个对话框，显示求和结果为"10+20+30+...+300 = 4590"。

---