Liebe VB-ler,
das Problem stellt die Übergabe des Parameters dar. Fehlermeldung: Der Typ vom Wert "Integer" kann nicht in "1-dimensionales Array von Integer" konvertiert werden. Das Grundgerüst für den Code entspricht einer Musterlösung...Komme nach längerer Recherche nicht weiter. Danke im voraus für die Hilfe
das Problem stellt die Übergabe des Parameters dar. Fehlermeldung: Der Typ vom Wert "Integer" kann nicht in "1-dimensionales Array von Integer" konvertiert werden. Das Grundgerüst für den Code entspricht einer Musterlösung...Komme nach längerer Recherche nicht weiter. Danke im voraus für die Hilfe
VB.NET-Quellcode
- Public Class Mittelwert
- 'Array zur Parameterübergabe, hier soll der Parameter als Referenz übergeben werden
- Private Function Klassenbelegung()
- Dim Zaehler%, Anzahl%, Programmabbruch$
- Dim Schülerzahl(4) As Integer
- 'Anzahl = InputBox("Wieviele Klassen möchten Sie anlegen?") 'Größe von Array festlegen
- 'ReDim Schülerzahl(Anzahl)
- For Zaehler = 1 To 4
- Schülerzahl(Zaehler) = InputBox("Schülerzahl der Klasse" & Zaehler & "eingeben")
- Next Zaehler
- Do
- Zaehler = InputBox("Geben Sie die Nr. der Klasse ein, deren Schülerzahl Sie sehen möchten")
- MsgBox("Die Klasse" & Zaehler & "hat" & Schülerzahl(Zaehler) & "Schüler")
- Call Mittelwert(Schülerzahl(Zaehler))
- (...) als Referenz, ABER irgendwo liegt das Problem! Der Ausdruck (Schülerzahl(Zaehler)) wird wellig unterstrichen mit oben genanntem Fehler
- Programmabbruch = InputBox("Soll das Programm beendet werden? (j/n)")
- Loop Until Programmabbruch = "j"
- End Function
- Private Sub Mittelwert(ByVal Zahlenfeld() As Integer)
- Dim Fachnummer%, Summe%
- Summe = 0
- For Fachnummer = LBound(Zahlenfeld) To UBound(Zahlenfeld)
- Summe = Summe + Zahlenfeld(Fachnummer)
- Next Fachnummer
- MsgBox("Im Durchschnitt sind" & Summe / (Fachnummer - 1) & "Schüler in den Klassen")
- End Sub
- End Class