DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Visual Basic 4 / 5 / 6 RSS

Calculate the factorial of a number

•

Join Date: Mar 2004

Posts: 1

Reputation: zeakman is an unknown quantity at this point

Solved Threads: 0

zeakman

Offline

Newbie Poster

Calculate the factorial of a number

Mar 25th, 2004

need help with basic program.trying to write a program in qbasic to take in a integer calculate and print out the factorial.been on this for a long time

•

Join Date: May 2003

Posts: 307

Reputation: big_k105 is an unknown quantity at this point

Solved Threads: 2

big_k105

Offline

PFO Founder

Re: Calculate the factorial of a number

Apr 3rd, 2004

could you possibly post the code you have so we can tell exactly what you need help with. that would make it easier to help up thanks

Kyle aka BIG K

Programming Forums
Kyle K Online

•

Join Date: Apr 2004

Posts: 7

Reputation: SleepDepD is an unknown quantity at this point

Solved Threads: 0

SleepDepD

Offline

Newbie Poster

Re: Calculate the factorial of a number

Apr 28th, 2004

I haven't coded in QBasic in years, but in VB it would be like the following:

 Help with Code Tags 
 Visual Basic 4 / 5 / 6 Syntax (Toggle Plain Text) 
Dim intNumber As Integer
Dim lngFactorial As Long
Dim lngCounter As Long
 
intNumber = 5
 
For lngCounter = 1 To intNumber
  lngFactorial = lngFactorial * lngCounter
Next lngCounter
Dim intNumber As Integer
Dim lngFactorial As Long
Dim lngCounter As Long
 
intNumber = 5
 
For lngCounter = 1 To intNumber
  lngFactorial = lngFactorial * lngCounter
Next lngCounter

"lngFactorial" would then be your number. Is this what you're looking for?

•

Join Date: Apr 2004

Posts: 7

Reputation: scisoft is an unknown quantity at this point

Solved Threads: 0

scisoft

Offline

Newbie Poster

Re: Calculate the factorial of a number

Apr 30th, 2004

If you do not use logarithmus, you will be getting overflow error for factorial of integers larger then approx. 280.
This is VB6 code:
Dim l As Long
Dim res As Double
For l = 1 To total
res = res + Log(CDbl(l))
Next

The final result "res" is used for furhter mathematical operation, rather then directly printing its value val= Exp(res), since if val is too high, you would just get the overflow error.

SEO