Header Ads

Write a Function for Natural Numbers sum up to n

Function NNumCou (n)
Dim num, sum
sum=0
For num= 1 to n step 1
sum= sum+num
Next
msgbox sum
End Function
Powered by Blogger.