Minimum de trois nombresRésolu

Question

Bonjour, Je dois écrire une fonction qui reçoit en paramètre trois nombres entiers. Elle renvoie le minimum de ces trois nombres. Je odis également, écrire le programme principal qui teste cette fonction. 
Est-ce que c'est ça :

Sub main()
MsgBox Minimum(2, 7, 10)
End Sub


Function Minimum(nb1 As Integer, nb2 As Integer, nb3 As Integer) As Integer
If nb1 < nb2 < nb3 Then
Minimum = nb1
Else
Minimum = nb2
Minimum = nb3
End If
End Function

Merci

cs_casy · Accepted Answer

J'ai répondu à une question sur les valeurs max l'autre jour 
http://www.vbfrance.com/infomsg_C%20Urgent%20Le%20Maximum%20du%20trois%20entiers._810288.aspx

Je te donne ici la fonction complémentaire

Public Function ValMin(ParamArray t())  As Integer
Dim minVal As Integer 
    minVal =  t( LBound (t)) 
    For i  = LBound(t) + 1 To UBound(t) 
       If t(i) < minVal Then 
          minVal = t(i) 
       End If 
    Next i 
ValMin = minVal 
End Function 

tu appele la fonction ainsi :

toto = ValMin(1, 5, 6, 8, 14, 3, 7, 12)

---- Sevyc64  (alias Casy) ----<hr size="2" width="100%" /># LE PARTAGE EST NOTRE FORCE #

mortalino · Answer

Pense à supprimer l'alerte mail si tu ne veux pas être inondé...
Alertes mails lors d'une réponse d'un message du forum

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

jrivet · Answer

Re,
>: Miss51:  pense aussi a appuyé sur réponse acceptée sur le ou les posts qui ont pu t'aider si tu estime que ton problème est résolu.

Aller sans rancune et qui sait peu être à bientôt pour une nouvelle question sur le forum, et qui dit nouvelle question dit nouvelle ambiance.

@+,   Ju£i?n

cs_DARKSIDIOUS · Answer

On passe l'éponge sur cet incident, et je modère le topic.

Minimum de trois nombres

4 réponses

Votre réponse

Discussions similaires