用VB程序设计语言描述“求10+20+30+…+300的和?”的算法。

可以使用循环来实现这个算法，具体的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"。

中间的算法如下：

Dim sum As Integer

n = 99 '你输入的最大数

i = 1

sum = 0

Do Until i >n

sum = sum + i

i = i + 1

Loop

'求和到此为止，下面的是求素数

k = 1

Do Until k >n

For j = 1 To k / 2

If k Mod j = 0 And j <>1 Then

Exit For

End If

Next j

If j >k / 2 And k <>2 Then

MsgBox k

End If

k = k + 1

Loop

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

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。

---