Fakultet i VB

Prøv:

Function fak(n As Integer) As Integer
  Dim res,i
  res = 1
  For i = 1 to n
      res = res * i
  Next
  fak = res
End Function

Bedre:

Function fak(n As Integer) As Long
  Dim res As long
  Dim i As Integer
  res = 1
  For i = 1 to n
      res = res * i
  Next
  fak = res
End Function

Fakultet er ikke særligt optimalt at udregne rekursivt.

function Fakultet(byval x as integer)

dim i as integer
dim tempsum as long
tempsum = x
for i = (x-1) to 1 step-1
    if i > 1 then
      tempsum = tempsum * i
    end if
next i
fakultet = tempsum
end function

Nej..... Det synes jeg heller ikke.... Men det mener min lærer :(

hov lidt sent paa den der :-)

Jeg ved ikke engang om VB understøtter rekursivitet, men hvis ja så må det være:

Function fak(n As Integer) As Long
  Dim res As Long
  If n > 1 Then
    res = n * fak(n - 1)
  Else
    res = 1
  End If
  fak = res
End Function

  Dim res As long
  Dim i As Integer
  res = 1
  For i = 1 to n
      res = res * i
  Next
  fak = res
End Function

Function fak(n As Integer) As Long
  Dim res As Long
  If n > 1 Then
    res = n * fak(n - 1)
  Else
    res = 1
  End If
  fak = res
End Function

(resten var leftover fra copy paste)

Og et svar fra mig

Kommer også lige et forslag her:

'factorial function
Public Function Factorial(ByVal Factor As Byte) As Variant

On Error GoTo ErrorHandler
If Factor = 0 Then
Factorial = 1
Else
Factorial = Factor * Factorial(Factor - 1)
End If
Exit Function

ErrorHandler:
MsgBox Err.Description
End Function

Private Sub Form_Load()
MsgBox Factorial(3)
End Sub

Private Sub Form_Load()
MsgBox Factorial(x)
End Sub

hov

Private Sub Form_Load()
MsgBox Factorial(x) 'X er det tal man skal tage fakulteten af
End Sub

Og der står noget om det her:
http://courseweb.xu.edu.ph/manuals/vbasic/Lesson5.htm

Hvis det skal være efter den c++ ting du har lavet, så må det være sådan..


Function fakulitet(n As Integer) As Integer  '<-- int fakulitet(int n) {
Dim result As Integer: result = 1            '<-- int result=1;
  If n > 1 Then result = n * fakulitet(n - 1) '<-- if (n>1) result = n*fakulitet(n-1);
  fakulitet = result                          '<-- return result; }
End Function

Lukketid?