Today we will perform HSC Computer Science Practical of slip no – 14 this program is based on visual basic we have to write a program to find the sum of 100 numbers using Do loop. First of all we understand what is visual basic and what is Do Loop
Private Sub Form_Load()
sun = 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