difficulté programme note
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
