Discussion :

[chadi42]

voici un programme pour rentrer des notes pour un concours de patinage artistique sur 20. Donc voila le programme a 2 probleme que je n'arrive pas a resoudre :
1- comment faire pour pouvoir ecrire mes notes en decimal ( As ?? )
2- les mots que jai souligner et mis en gras, il me dit que c une variable non-défini jai pas compris ce que je devai faire.

Voici mon programme :


Option Explicit



Dim noteTab(8) As Double ' La note



Dim k As Integer

Dim Diviseur As Integer

Dim Max As Double ' La note maximum

Dim Min As Double ' La note minimum

Dim Moyenne As Double ' La moyenne général

Dim Somme As Double ' La somme





Private Sub Form_Load()

' Initialisation des variables

Somme = 0

Max = 0

Min = 0

Moyenne = 0

Diviseur = 0



Text1.Text = ""



For k = 1 To 8

noteTab(k) = InputBox("Entrer une note entre 0.0 et 6.0", "Command1")

Next k



Min = noteTab(1)

Max = noteTab(1)



For k = 2 To 8

If Min > noteTab(k) Then

Min = noteTab(k)

End If

If Max < noteTab(k) Then

Max = noteTab(k)

End If

Next k



Text1.Text = "La valeur minimale est de : " & Min & "; " & vbNewLine



Text1.Text = Text1.Text & "La valeur maximale est de : " & Max & ";" & vbNewLine



Text1.Text = Text1.Text & "Les notes des juges : "

For k = 1 To 8

Text1.Text = Text1.Text & noteTab(k) & ","

Next k



Text1.Text = Text1.Text & "La moyenne des notes : "



For k = 1 To 8

If noteTab(k) <> Min And noteTab(k) <> Max Then

Somme = Somme + noteTab(k)

Diviseur = Diviseur + 1

End If

Next k ' fin de la boucle



Moyenne = Somme / Diviseur



Text1.Text = Text1.Text & Moyenne & ","



End Sub

[RideKick]

Bonjour (et oui quand on commence c'est toujours cool)

Bienvenue sur les forums de Developpez.com !

Si tu pouvais utiliser les balises Code que ton post soit plus lisible et donne envie de reflechir sur le problème ,

Merci (c'est toujours bien en fin de post pour donner envie aux benevoles de reflechir a ton probleme)