Exponential Looping

[VBNoob]

Got a problem in my loop and I'm not certain how to code it.

I am not supposed to use x ^ y and I have to use multiplication in a loop to
do this.

Here's what I have...

If rdoExp.Checked = True Then

If num2 = 0 Then

lblResult2.Text = "Cannot Raise to the power of Zero!"

Else

Dim x As Integer

Dim old_ans As Double

' Loop the Multiplication x Times

If Val(txtNum2.Text) = 2 Then

lblResult2.Text = Str(num1) + " ^" + Str(num2) + " =" + Str(num1 *
num1)

Else

For x = 1 To num2

result = (result * num2) + old_ans

Next

'Dump The Result into the Result Area of the Form

lblResult2.Text = Str(num1) + " ^" + Str(num2) + " =" + Str(result)

End If

'Reset result amount

result = 0

old_ans = 0

End If
---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.576 / Virus Database: 365 - Release Date: 1/30/2004

[Larry Serflaten]

"VBNoob" <[e-mail]> wrote

Got a problem in my loop and I'm not certain how to code it.

Step through the code, one command at a time, and verifiy that
the variables you are using have the values you expect.

LFS

-----= Posted via Newsfeeds.Com, Uncensored Usenet News =-----
http://www.newsfeeds.com - The #1 Newsgroup Service in the World!
-----== Over 100,000 Newsgroups - 19 Different Servers! =-----

[Steve Gerrard]

"VBNoob" <[e-mail]> wrote in message
news:bX*********************@ursa-nb00s0.nbnet.nb.ca...

lblResult2.Text = "Cannot Raise to the power of Zero!"
In all of my math classes, X^0 = 1
' Loop the Multiplication x Times
Think a minute: how many times do you multiply if Y = 2?
result = (result * num2) + old_ans

I have no idea where addition could play a role in exponents.
------

I think you need to lay out the math first:
if y =0, result = 1
if y = 1, result = x
if y > 1, then....

and also
if y = -1, result = 1/x
if y < -1, then....

[J French]

On Sun, 1 Feb 2004 10:54:17 -0800, "Steve Gerrard"
<no*************@comcast.net> wrote:
<snip>

I think you need to lay out the math first:
if y =0, result = 1
if y = 1, result = x
if y > 1, then....

Select Case springs to mind ...

[Rick Rothstein]

> > lblResult2.Text = "Cannot Raise to the power of Zero!"

In all of my math classes, X^0 = 1

For the most part, that is true... but not always...

http://www.faqs.org/faqs/sci-math-fa...lnumbers/0to0/

The problem comes up because X^0=1 and 0^X=0 for all non-zero X. However, at
when X does equal zero, these two equations lead one to contradictory
answers. VB considers 0^0 to be 1, my Casio calculator gives a Math Error.
You have to know the context you are using 0^0 in to be sure 1 is a
"correct" answer.

Rick - MVP

[Trousle Undrhil]

"Rick Rothstein" <ri************@NOSPAMcomcast.net> wrote in message
news:j8********************@comcast.com...

lblResult2.Text = "Cannot Raise to the power of Zero!"

In all of my math classes, X^0 = 1

For the most part, that is true... but not always...

I coded this function with a For Next loop. You would probably get errors
(or, as you said, as '1' as the answer for 0 and 0) but it does not use the
caret for exponentation. I am sure that you can come up with the answer for
this. Just think that the first time through any loop is going to use the
value twice, so you have to make sure the loop compensates for that.
Example: if your y value is 4, then the loop only needs to go through three
times since the first time will multiply x*x. Also, there shouldn't be any
addition, only multiplication. You also would need a check in place for
your '0' values to ensure they get handled properly since the for next loop
will choke if you pass it a lower value than the starting value. :)

If you absolutely cannot get this, email me (remove the nospam) and I will
try to explain in more detail for you what I am talking about, ok? :)

Ken
un*****@hotmail.nospam.com

[Rick Rothstein]

Are you asking for a function that does powers without using the caret
symbol? If so,

Function Power(Base As Long, Exponent As Long) As Long
Dim Index As Long
Power = 1
For Index = 1 To Exponent
Power = Power * Base
Next
End Function

This returns 1 as the answer for 0 to the 0 power.

Rick - MVP
"Trousle Undrhil" <un*****@hotmail.nospam.com> wrote in message
news:Yh******************@bignews1.bellsouth.net.. .

"Rick Rothstein" <ri************@NOSPAMcomcast.net> wrote in message
news:j8********************@comcast.com...

> lblResult2.Text = "Cannot Raise to the power of Zero!"

In all of my math classes, X^0 = 1
For the most part, that is true... but not always...

I coded this function with a For Next loop. You would probably get errors
(or, as you said, as '1' as the answer for 0 and 0) but it does not use

the caret for exponentation. I am sure that you can come up with the answer for this. Just think that the first time through any loop is going to use the
value twice, so you have to make sure the loop compensates for that.
Example: if your y value is 4, then the loop only needs to go through three times since the first time will multiply x*x. Also, there shouldn't be any addition, only multiplication. You also would need a check in place for
your '0' values to ensure they get handled properly since the for next loop will choke if you pass it a lower value than the starting value. :)

If you absolutely cannot get this, email me (remove the nospam) and I will
try to explain in more detail for you what I am talking about, ok? :)

Ken
un*****@hotmail.nospam.com

[Raoul Watson]

"Rick Rothstein" <ri************@NOSPAMcomcast.net> wrote in message
news:A4********************@comcast.com...

This returns 1 as the answer for 0 to the 0 power.

Rick - MVP

Looking at your function I would say it returns a zero rather than 1 (since
0 * base = 0)

Also, it won't work for power of 0.5

[Raoul Watson]

"Raoul Watson" <Wa*****@IntelligenCIA.com> wrote in message
news:6A*****************@nwrdny02.gnilink.net...

"Rick Rothstein" <ri************@NOSPAMcomcast.net> wrote in message
news:A4********************@comcast.com...

This returns 1 as the answer for 0 to the 0 power.

Rick - MVP

Looking at your function I would say it returns a zero rather than 1

(since 0 * base = 0)

Also, it won't work for power of 0.5

Oh.. cool.. I didn't see power preset to 1.

[Rick Rothstein]

> > > This returns 1 as the answer for 0 to the 0 power.

Rick - MVP

Looking at your function I would say it returns a zero rather than 1

(since

0 * base = 0)

Also, it won't work for power of 0.5

True, I meant to post that it was only for integer powers. I declared Base
as Long, but that doesn't seem to be a necessary restriction... it looks
like Base could have been declared as Double also.

Oh.. cool.. I didn't see power preset to 1.

<g>
Rick - MVP