计算s=1×2 2×3...n×(n 1)直到和大于1000停止。输出结果和n值VB编程
计算s=1×2 2×3...n×(n 1)直到和大于1000停止。输出结果和n值VB编程
日期:2013-11-14 14:54:27 人气:1
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