Fattoriale in VB

[Invernomuto]

Scusate, sono un apprendista programmatore di Visual basic, e quindi non sono un esperto.
Ho fatto una calcolatrice, ma non riesco ad inserire il fattoriale.
Cioè, so che ci vuole un ciclo, ma con il codice che ho scritto io riesco solo a moltiplicare due numeri consecutivi.
Mi potete aiutare?

[z4g0]

Fattoriale(n){return n<=1?return 1: n * FATT (n-1);}

[totem]

Fattoriale(n){return n<=1?return 1: n * FATT (n-1);}

Ha detto VB, Visual Basic. E' così:

Public Function Fattoriale(num As integer) As long
  Dim index As Long
 
  index=1
  while index<num
	num=num*index
	index=index+1
  End While
  Fattoriale=index
End Function

oppure:

Public function Fattoriale(num As integer) As long
  If num=1 Then
	Fattoriale=1
  Else
	Fattoriale=num*Fattoriale(num-1)
  End If
End Function

oppure, con VB.NET:

Public Function Fattoriale(num As int16) As int64
  Dim index As int64=1
 
  while index<num
	num*=index
	index+=1
  End While
  return index
End Function

[Invernomuto]

Ha detto VB, Visual Basic. E' così:

 Public Function Fattoriale(num As integer) As long
   Dim index As Long
  
   index=1
   while index<num
 	num=num*index
 	index=index+1
   End While
   Fattoriale=index
 End Function

oppure:

 Public function Fattoriale(num As integer) As long
   If num=1 Then
 	Fattoriale=1
   Else
 	Fattoriale=num*Fattoriale(num-1)
   End If
 End Function

oppure, con VB.NET:

 Public Function Fattoriale(num As int16) As int64
   Dim index As int64=1
  
   while index<num
 	num*=index
 	index+=1
   End While
   return index
 End Function

Grazie tante