vba moyenne calculatrice userform

Question

Hey im essayant d'écrire un petit programme VBA qui calcule le score moyen du quiz le problème est quand je rentre dans le troisième nombre, il revient incorrect après avoir fait les deux premiers à droite.Qu'est-ce que je manque?

est la vue de la conception

Option Explicit 

Dim total As Double 
Dim number As Double 
Dim average As Double 


Private Sub CommandButton1_Click() 

If IsNumeric(TextBox1.Value) = True Then 
    total = CDbl(average + TextBox1.Value) 
    number = CDbl(number + 1) 
    average = CDbl(total/number) 
    TextBox2.Value = number 
    TextBox3.Value = average 
    TextBox1.Value = ""  
Else 
    MsgBox ("please enter a number") 
    TextBox1.Value = "" 
End If 

End Sub 

Answer 1

Votre calcul est éteint. Si vous voulez le faire, en utilisant la moyenne précédente, et la nouvelle valeur, alors la formule que vous devez utiliser est la suivante:

([old average] + ([new value]/[count - 1]))/([count]/[count - 1]) 

Cependant, comme vous pouvez le voir, ce n'est pas très facile à lire conception. J'irais pour un design, en utilisant un array. De cette façon, vous pouvez garder les mathématiques beaucoup plus intuitives, plus vous pouvez revenir sur le vieux score, si vous le souhaitez. Le design le plus simple est probablement de garder le tableau de la taille de votre score. Cela nécessite redim() chaque fois que vous ajoutez un nouveau score. Du point de vue de la performance, c'est une mauvaise pratique. Mais dans votre minuscule calculatrice, ça ne va pas être un problème.

Answer 2

Je pense que vous devriez obtenir le nombre, en moyenne, et la valeur totale avant de faire les calculs:

Option Explicit 

Dim total As Double 
Dim number As Double 
Dim average As Double 


Private Sub CommandButton1_Click() 

number = 0 
average = 0 
total = 0 

If IsNumeric(TextBox1.Value) = True Then 
    total = CDbl(average + TextBox1.Value) 
    number = CDbl(number + 1) 
    'prevent error 
    If number > 0 then 
     average = CDbl(total/number) 
    Else 
     average = 0 
    End If 
    TextBox2.Value = number 
    TextBox3.Value = average 
    TextBox1.Value = ""  
Else 
    MsgBox ("please enter a number") 
    TextBox1.Value = "" 
End If 

End Sub 

Hope this aide.