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