Ciao ho scritto una stringa come input, e voglio sapere il numero delle ricorrenze, il programma che sono riuscito a fare mi dava le ricorrenze, ma purtroppo se ci sono più lettere uguali, il programma si svolge ma con degli errori.
esp: errore
ABBCCC
A=1
B=2
B=1
C=3
C=2
C=1
in realtà ciò che vorrei è :
ABBCCC
A=1
B=2
C=3
So che sbaglio nel output, vorrei dei suggerimenti che mi portino da solo alla soluzione. Questo è il mio codice.
ccodice:Dim parola, Lettera, max, car As String Dim i, ss, c, lunghezza As Integer parola = TextBox1.Text lunghezza = Len(parola) Label1.Text = "" Label2.Text = "" For i = 1 To lunghezza car = Mid(parola, i, 1) ss = 0 Lettera = car For c = i To lunghezza max = Mid(parola, c, 1) If Lettera = max Then ss = ss + 1 End If Next Label1.Text = Label1.Text & vbCrLf & Lettera & "= " & ss Next