Private Sub Form_Click() Dim s, i As Integer s = 0 For i = 1 To 100 s = s + i Next i Print sEnd SubPrivate Sub Form_Click()Dim i, s As Integers = 0i = 1Do While i <= 100 s = s + i i = i + 1LoopPrint sEnd Sub