后天考vb,有道题求指教,计算1+2+3+……+n当和大于1000时停止计算,并输出此时的和数

来源:学生作业学帮网 编辑:学帮网 时间:2024/05/27 04:37:14

后天考vb,有道题求指教,计算1+2+3+……+n当和大于1000时停止计算,并输出此时的和数

Private Sub Command1_Click()
Dim i As Integer
Dim Sum As Integer
i = 1
Sum = 0
Do While (Sum