Program Example Use Do Loop

Program Example


Dim sum, n As Integer

Private Sub Form_Activate()

List1.AddItem "n" & vbTab & "sum"

Do

n = n + 1

Sum = Sum + n

List1.AddItem n & vbTab & Sum

If n = 100 Then

Exit Do

End If

Loop

End Sub