VB 计算 1*2+2*3+。。。n*(n+1)的代码怎么写啊?

来源：百度知道 编辑：UC知道 时间：2024/05/15 11:22:26
VB 计算 1*2+2*3+。。。n*(n+1)的代码怎么写啊?
里面那个N由程序输入

建一个按钮控件和一个文本框控件，以下代码在窗体上显示运算结果：
Private Sub Command1_Click()
Dim x As Long, n As Long, y As Long
x = 0
n = Text1.Text
For y = 1 To n
x = y * (y + 1) + x
Next y
Print "计算结果为:" & x
End Sub

dim i as integer
dim k as integer
k=0
for i=1 to n
k=k+i *(i+1)
next i

for j=1 to n
k=k+n *(n+1)
next
k就是你要的