Obrnite niz teksta s VBA
VBA rutina u nastavku dopušta korisniku da unese niz, a zatim se isti niz prikazuje unatrag. Na primjer, "ponedjeljak" postaje "yadnoM":
| 123456789101112131415161718192021222324252627282930313233343536 | Opcija EksplicitnoPrivatna pomoćna naredbaButton1_Click ()'Definirajte varijableZatamnite Original_String As StringDim Reversed_String As StringZatamni Next_Char As StringPriguši duljinu kao cijeli brojDim Pos kao cijeli broj'Nabavite izvorni nizOriginal_String = InputBox ("Molimo unesite izvorni niz:")'Pronađite revidiranu duljinu nizaDuljina = Len (Original_String)'Postavite obrnuti nizObrnut_String = ""'Napredujte niz nizova po znakovima'Počevši od posljednjeg znaka i idući prema prvom znakuZa Pos = Duljina Do 1 Korak -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Obrnut_String & Sljedeći_CharSljedeći pozMsgBox "Obrnuti niz je" & Reversed_StringKraj podm |
Glavne značajke koda su:-
• Za aktiviranje koda potreban je naredbeni gumb za događaj klika
• Postavljene su sljedeće varijable:-
o Original_String - izvorni niz koji će biti obrnut ("ponedjeljak")
o Reversed_String - obrnuti niz ("yadnoM")
o Next_Char - sljedeći znak u nizu koji će biti obrnut
o Duljina - duljina žice
o Pos - trenutni položaj u nizu
• InputBox za hvatanje niza. To je pohranjeno u varijabli "Izvorni niz"
• Duljina niza izračunava se pomoću funkcije LEN i pohranjuje u varijablu Duljina
• Petlja FOR… NEXT postavljena je za prolazak kroz niz koji počinje od posljednjeg znaka i radi unatrag jedan po jedan znak
• Sljedeći znak u izvornom nizu (rad unatrag) tada se dodaje obrnutom nizu
• Ova petlja se ponavlja sve dok ne prijeđemo cijelu duljinu niza
• Obrnuti niz prikazan je u MsgBoxu.
Ovdje preuzmite Excel datoteku
