Mittelwert berechnen

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

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!

Zurück zum Index: Visual Basic für Einsteiger

Nutzen Sie unsere Suchfunktion:

Nach oben Sitemap
Impressum Datenschutz

Hinweis: Diese Webseite kann Werbeanzeigen und Werbeeinblendungen oder eingebundene Links von Diensten und Inhalten Dritter enthalten. Beachten Sie dazu unsere Datenschutzerklärung.