Corrigé 3.3 Comparer des nombres et rechercher le plus petit d’entre eux

Code de la fonction :

Function TrouvePetit(ByVal dblN1 As Double, ByVal dblN2 As Double) _ 
As Double  
  If dblN1 < dblN2 Then  
    TrouvePetit = dblN1  
  Else  
    TrouvePetit = dblN2  
  End If  
End Function 

Code de la procédure :...