VB经典的程序设计题

累加求和 1 到 100Private Sub Command1_Click()Dim i As Integer, sum As Integersum = 0For i = 1 To 100sum =