Programming Forums - View Single Post - Help - Get the product of the numbers between 1 and n?

Pizentios · Dec 14th, 2006, 5:18 PM

well, right now you are reseting the varible "a" to a new number everytime your loop runs.

you need to add the value to a, here's how i would do it.

(Toggle Plain Text)

Function product(ByVal n As Double, ByRef i As Double)
       Dim a As Double
       a = 0
       for i = 1 To n
              a = a + (i*n)
       Next
       Return a
End Function

not sure if that's what you are looking for. Also, this looks like homework....please don't let it be homework, mainly because posting homework questions is against the forum rules.

Dec 14th, 2006, 5:18 PM	#2
Pizentios Programming Guru Join Date: May 2004 Location: Brandon, Manitoba, Canada Posts: 2,023 Rep Power: 7	well, right now you are reseting the varible "a" to a new number everytime your loop runs. you need to add the value to a, here's how i would do it. (Toggle Plain Text) Function product(ByVal n As Double, ByRef i As Double) Dim a As Double a = 0 for i = 1 To n a = a + (in) Next Return a End Function Function product(ByVal n As Double, ByRef i As Double) Dim a As Double a = 0 for i = 1 To n a = a + (in) Next Return a End Function not sure if that's what you are looking for. Also, this looks like homework....please don't let it be homework, mainly because posting homework questions is against the forum rules. __________________ Profanity is the one language that all programmers understand. Check out my Blog <---updated Nov 30 2007!