1
Program 1
Aim (Write on the ruler page)
WAP in VB to find the sum of first 100 numbers entered using DO Loop
Program (Start from new page after AIM)
Private Sub Form_Load()
sum = 0
a = 1
Do
sum = sum + a
a = a + 1
Loop While a <= 100
MsgBox "The sum of first 100 Numbers is " & Sum & ".", vbInformation
End
End Sub
Output (Stick on blank page opposite to code)
Download Output