auxmoney - Geld leihen für das Studiumauxmoney - Geld leihen für das Studium

auxmoney - Geld leihen für den Umzugauxmoney - Geld leihen für den Umzug

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
.
Sponsoren und Investoren

Sponsoren und Investoren sind jederzeit herzlich willkommen!
Wenn Sie die Information(en) auf dieser Seite interessant fanden, freuen wir uns über eine kleine Spende. Empfehlen Sie uns bitte auch in Ihren Netzwerken (z. B. Twitter, Facebook oder Google+). Herzlichen Dank!

Nach oben Sitemap
Impressum & Kontakt