Mittelwert berechnen. Programmierung via Funktion Mittelwert | |
Private Sub cmdEinfügen_Click() | |
With txtZahl | |
If IsNumeric(.Text) = True Then | Wenn der Inhalt der Eingabe-TextBox nummerisch ist, |
lstZahlen.AddItem txtZahl.Text | dann wird der Eintrag in die ListBox (links) übernommen. |
.SelStart = 0 | |
.SelLength = Len(.Text) | |
End If | |
.SetFocus | TextBox erhält Fokus zurück. |
End With | |
End Sub | |
Private Sub cmdKopieren_Click() | |
If lstZahlen.ListIndex >= 0 Then | Ein selektierter Eintrag aus der ListBox kann wiederholt |
txtZahl.Text = lstZahlen.List(lstZahlen.ListIndex) | kopiert werden. |
End If | |
txtZahl.SetFocus | |
End Sub | |
Private Sub cmdMittelwert_Click() | |
Dim n As Long, Summe As Single | |
If lstZahlen.ListCount > 0 Then | Wenn die ListBox Einträge enthält, dann |
For n = 0 To lstZahlen.ListCount - 1 | durchläuft eine Schleife die ListBox, |
Summe = Summe + lstZahlen.List(n) | addiert alle Zahlen, und... |
Next | |
lblErgebnis.Caption = Format(Summe / n, "0.00") | ...teilt das Ergebnis durch die Anzahl der Einträge. |
Else | |
lblErgebnis.Caption = "Kein Ergebnis" | Wenn keine Einträge in der ListBox, dann gebe Hinweis- |
txtZahl.SetFocus | text aus und setze den Fokus in die TextBox zurück. |
End If | |
End Sub | |
Private Sub cmdLöschen_Click() | |
lstZahlen.Clear | Diese Ereignisprozedur löscht den Inhalt der ListBox. |
txtZahl.SetFocus | |
End Sub | |
Private Sub txtZahl_Click() | |
txtZahl.Text = "" | |
End Sub | |
Mehr Tipps: Standardabweichung berechnen (Statistik)
Sponsoren und Investoren sind jederzeit herzlich willkommen! Wenn Sie die Information(en) auf diesen Seiten interessant fanden, freuen wir uns über Ihren Förderbeitrag. Empfehlen Sie uns auch gerne in Ihren Netzwerken. Herzlichen Dank!
Nutzen Sie unsere Suchfunktion:
Nach oben
Sitemap
Impressum
Datenschutz