Discussion :

[3xplo]

Bonjour,
Bon voilà, je débute sur VB et là je me retrouve bloqué.
Je dois ecrire une fonction qui reçoit en paramètres 3 nombres entiers, et elle doit renvoyer le minimum de ces 3 nombres. Il faut créer le programme principal qui permet de tester cette fonction.
Mon problème c'est les 3 nombres en paramètres, je sais faire avec 2 nombres mais pas avec 3, merci de bien vouloir m'aider !

[AlainTech]

Bonjour et bienvenue sur ce forum.

Montre-nous le code que tu as écrit pour 2 nombres...

[3xplo]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Function Minimum(nb1 As Integer, nb2 As Integer) As Integer
If nb1 < nb2 Then
Minimum = nb1
Else
Minimum = nb2
End If
End Function
 
Sub main()
Dim a As Integer, b As Integer
a = InputBox("1ere valeur ?")
b = InputBox("2eme valeur ?")
MsgBox "Le minimum est " & Minimum(a, b)
End Sub

[AlainTech]

Ben, quand tu as le minimum de 2, tu n'as plus qu'à comparer ce minimum avec le troisième. Ce qui revient à faire une autre comparaison de 2.

[3xplo]

ok, merci pour la réponse, au final ça donne ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Function Minimum(nb1 As Integer, nb2 As Integer, nb3 As Integer) As Integer
If nb1 < nb2 Then
Minimum = nb1
Else
Minimum = nb2
End If
If nb3 < Minimum Then
Minimum = nb3
End If
End Function
 
Sub main()
Dim a As Integer, b As Integer, c As Integer
a = InputBox("1ere valeur ?")
b = InputBox("2eme valeur ?")
c = InputBox("3eme valeur ?")
MsgBox "Le minimum est " & Minimum(a, b, c)
End Sub

Encore merci, je risque de revenir vous embetter un peu.
Peux-tu me confirmer que mon code est correct stp, pour que je puisse mettre "resolu" à mon problème.

[Phifi]

Alors les matheux, c'est résolu ou pas ?