Question

vb编程求1+2+3+…+100的值

如题

Answer 1

Private Sub Command1_Click()
Dim i, sum
sum = 0
For i = 1 To 100
sum = sum + i
Next i
Print sum
End Sub