Option Explicit
 
Sub varianzBerechnung
    
' Bernd Bluemel 14.09.2002
   ' Dateiname varianzberechnung
   ' Ohne Potenzieren
    
    
dim ersterWert As Double
    
dim zweiterWert As Double
    
dim dritterWert As Double
    
dim mittelwert As Double
    
dim varianz As Double    
     
     ersterWert=InputBox("Bitte geben Sie den ersten Wert ein!")
     zweiterWert=InputBox("Bitte geben Sie den zweiten Wert ein!")
     dritterWert=InputBox("Bitte geben Sie den dritten Wert ein!")
     
     mittelwert=(ersterWert + zweiterWert + dritterWert) / 3
     varianz=((ersterWert-mittelwert)*(ersterWert-mittelwert) + _
                 (zweiterWert-mittelwert)*(zweiterWert-mittelwert) + _
                 (dritterWert-mittelwert)*(dritterWert-mittelwert))/3
     
     MsgBox("Der Mittelwert ist: " & mittelwert & Chr$(13) & _
             "Die Varianz ist: " & varianz)                         
End Sub
 
Sub varianzBerechnungPotenz
    
' Bernd Bluemel 14.09.2002
   ' Dateiname varianzberechnung
   ' Mit Potenzieren
    
    
dim ersterWert As Double
    
dim zweiterWert As Double
    
dim dritterWert As Double
    
dim mittelwert As Double
    
dim varianz As Double    
     
     ersterWert=InputBox("Bitte geben Sie den ersten Wert ein!")
     zweiterWert=InputBox("Bitte geben Sie den zweiten Wert ein!")
     dritterWert=InputBox("Bitte geben Sie den dritten Wert ein!")
     
     mittelwert=(ersterWert + zweiterWert + dritterWert) / 3
     varianz=((ersterWert-mittelwert)^2 + _
                 (zweiterWert-mittelwert)^2 + _
                 (dritterWert-mittelwert)^2)/3
     
     MsgBox("Der Mittelwert ist: " & mittelwert & Chr$(13) & _
             "Die Varianz ist: " & varianz)                         
End Sub