Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.04.2009 17:00:09 |
Patrick |
|
|
Aw:Mehrere Paramter übergeben |
22.04.2009 18:04:08 |
Holger |
|
|
|
23.04.2009 10:17:38 |
Holger |
|
|
|
22.04.2009 18:13:30 |
Patrick |
|
|
Von:
Holger |
Datum:
22.04.2009 18:04:08 |
Views:
1675 |
Rating:
|
Antwort:
|
Thema:
Aw:Mehrere Paramter übergeben |
Hallo Patrick,
vielleicht kannst du folgende Subs anpassen:
Sub tausch(ByVal a, ByVal b, ByVal c, d)
d = 3
If b > c Then d = 2: c = b
If a > c Then d = 1
End Sub
Sub testen_Tausch()
tausch 2, 6, 8, a
MsgBox a
End Sub
Gruß
Holger
Patrick schrieb am 22.04.2009 17:00:09:
Hallo,
ich habe hier ein bzw. mehrere Probleme.
Hier mal eines:
Ich habe folgende Aufgabenstellung:
Schreiben Sie eine Prozedur, die vier Zahlen als Paramter mit einem aufrufenden Programm austauscht. Die Prozedur soll ermitteln, welcher der ersten drei Paramater der größte ist und die Nummer des Paramters (1,2 oder 3) als vierten Paramter wieder an das Hauptprogramm zurückgeben.
Soweit bin ich bis jetzt gekommen:
Sub Zahlen() 'Prozedurstart
Dim z1 As Integer, z2 As Integer, z3 As Integer
Dim z4 As Integer
'Deklaration der Variablen im Wertebereich Integer; nur ganze Zahlen möglich
z1 = 2
z2 = 1
z3 = 4
Tausch z1,z2,z3 'Aufruf der Prozedur Tausch mit Parameterübergabe
MsgBox ("Der größte Wert ist " & z4)
End Sub
Sub Tausch(ByRef z4) 'Prozedur Tausch Rückgabe des Parameters z4 als größte Zahl
If z1 > z2 Then 'Überprüfung des größten Betrages der Variablen z1,z2,z3 mit einer If Kontrollstruktur
z1 = z4
ElseIf z1 z3 Then
z1 = z4
ElseIf z1 z3 Then
z2 = z4
Else
z3 = z4
'Der größte Wert wird in der Variable z4 gespeichert und an das Hauptprogramm übergeben
End If
End Sub
Allerdings bekomm ich da die Fehlermeldung bei dem Aufruf der Prozedur Tausch : Falsche Anzahl an Argumenten...
Ich bekomm das einfach nicht hin. Mal abgesehen davon, dass mein Programm sowieso nicht ganz der Aufgabenstellung entspricht.
Ich bitte dringend um Hilfe |
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
22.04.2009 17:00:09 |
Patrick |
|
|
Aw:Mehrere Paramter übergeben |
22.04.2009 18:04:08 |
Holger |
|
|
|
23.04.2009 10:17:38 |
Holger |
|
|
|
22.04.2009 18:13:30 |
Patrick |
|
|