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

来源:学生作业帮助网 编辑:作业帮 时间:2024/05/16 06:24:23

后天考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