计算s=1×2 2×3...n×（n 1）直到和大于1000停止。输出结果和n值VB编程

Private Sub Command1_Click() Dim i As Long, S i = 0: S = 0 While S < 1000 i = i + 1 S = S + i * (i + 1) Wend Text1.Text = S Text2.Text = i End Sub