Question

设计一个VB程序:"1*2+2*3+3*4+4*5+5*6+......N(N+1)

设计一个VB程序:"1*2+2*3+3*4+4*5+5*6+......N(N+1)
且N=<60!!!!!!!!
急啊 快快帮忙呀

Answer 1

'窗体放一个CommandButton、两个TextBox
'在Text1输入N
Private Sub Command1_Click()
Dim i As Integer, j As Long
For i = 1 To CInt(Text1.Text)
j = j + i * (i + 1)
Next i
Text2.Text = j
End Sub