用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"。

Function F(n As Long) As Long

If n >2 Then

F = F(n - 1) + F(n - 2)

Else

F = 1

End If

End Function

Private Sub Command1_Click()

Cls

Dim I As Long

I = Val(inputbox("n=?"))

Print "第 " &I &" 项斐波那契数列值为:" &F(i)

End Sub

---