用VB编写 1*2+2*3+3*4+~~+n*(n+1)

来源：百度知道 编辑：UC知道 时间：2024/06/14 08:43:42

在Form中添加1个Text控件、一个label控件和一个Command控件.
Text1用以输入n值,labeb用于显示计算结果，command控制执行操作。
在command的单击事件的代码下输入以下代码(只要1到7句即可)：
Private Sub Command1_Click()
Dim i, n, s As Integer '1
s = 0 '2
n = Val(Text1.Text) '3
For i = 1 To n '4
s = s + i * (i + 1) '5
Next i '6
Label3.Caption = s '7
End Sub

运行后，在Text1中输入n值，如3，按下command 即可在label中显示出结果：20

n=inputbox("")
for i = 1 to n
n=n+(i*(i+1))
next
?n