Ausgabe mit Komma trennen

[Borandur]

Hallo,

ich habe folgendes Frage: Ist es möglich mehrere Ausgaben, in einem Bezeichnungsfeld, Komma getrennt aus zugeben?

Folgende Situation:

In einer Schleife werden fortlaufend Werte ermittelt und in ein Bezeichnungsfeld ausgegeben. Aber das Problem ist das es das immer überschreibt.

Quelltext:

For i = 1 To anzahl
    list1.AddItem Mid$(Wort, i, 1)
    list2.AddItem Asc(Mid$(Wort, i, 1))
Next i
For j = 1 To anzahl
    z1 = Asc(Mid$(Wort, j, 1))
    potenz = 1
    For k = 1 To e
        potenz = potenz * z1
        potenz = potenz Mod n
    Next k
    list3.AddItem potenz
    aus_werte = potenz & ", "
Next j
aus_werte = potenz

Der Wert 'potenz' soll hintereinander kommagetrennt ausgegeben werden.


Hoffe ich hab mein Problem gut darstellen können
Wenn ihr noch fragen habt, fragt.

Wäre über eine schnelle Antwort sehr froh, weil ich Anfänger bin und da echt nicht weiterkomme


Gruß Borandur

 

[Dario Linsky]

Hi,

klar, du überschreibst den Inhalt der Ausgabevariable (ich nehme an, das ist ein Textfeld?) mit dem letzten Wert der Potenz, wenn die Schleife schon durchgelaufen ist:

    aus_werte = potenz & ", "
Next j
aus_werte = potenz

Versuch mal folgendes:

Dim s As String
s = ""

For j = 1 To anzahl
    ' Potenz berechnen ...

    s = s & potenz
    If j < anzahl Then
        s = s & ", " ' Komma anhängen, wenn es noch nicht das letzte Element ist
    End If
Next j
aus_werte = s

Grüße, D.

 

[Borandur]

Danke hat perfekt geholfen!

Vielen, vielen Dank.


Gruß Borandur