Question

Write a program in VB (Visual Basic) to find the sum of first 100 numbers entered using DO Loop

Answer 1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 Dim sum, n As Integer
 Do
 n += 1
 sum += n
 ListBox1.Items.Add(n & vbTab & sum)
 If n = 100 Then
 Exit Do
 End If
Loop while n<=1000
End Sub