Question

vb编程,计算1-n的累加和,求累加和超过10000时的n值

Answer 1

Private Sub Command1_Click()

    和 = 0

    n = 0

    Do

        和 = 和 + n

        n = n + 1

    Loop Until 和 > 10000

    MsgBox "加到" & n & "时，超过了10000，达到" & 和

End Sub

追问

能再简便些吗，Msgbox能用print代替写吗，可以的话，请帮忙下

追答

Private Sub Command1_Click()
 
    和 = 0
 
    n = 0
 
    Do
 
        和 = 和 + n
 
        n = n + 1
 
    Loop Until 和 > 10000

    cls  
 
    print "加到" & n & "时，超过了10000，达到" & 和
 
End Sub