Obrnite niz besedila z VBA
Spodnja rutina VBA uporabniku omogoča vnos niza, nato pa se z istim nizom prikaže nazaj. Na primer »ponedeljek« postane »yadnoM«:
| 123456789101112131415161718192021222324252627282930313233343536 | Možnost izrecnoZasebni pod -ukaz Button1_Click ()'Določite spremenljivkeZatemni Original_String As StringZatemni Reversed_String As StringZatemni Next_Char kot nizZatemni dolžino kot celo številoDim Pos kot celo število'Pridobite originalni nizOriginal_String = InputBox ("Prosim, vnesite izvirni niz:")'Poiščite popravljeno dolžino nizaDolžina = Len (Original_String)'Nastavite obrnjeni nizObrnjen_String = ""'Napredek po nizu glede na značaj'Začni pri zadnjem znaku in pojdi proti prvemuZa Pos = dolžina do 1 koraka -1Next_Char = Srednji (Original_String, Pos, 1)Reversed_String = Obrnjen_String & Naslednji_CharNaslednji pozMsgBox "Obrnjeni niz je" & Reversed_StringEnd Sub |
Glavne značilnosti kode so:-
• Za aktiviranje kode pri dogodku klika potrebuje ukazni gumb
• Nastavljene so naslednje spremenljivke:-
o Original_String - izvirni niz, ki bo obrnjen ("ponedeljek")
o Reversed_String - obrnjeni niz ("yadnoM")
o Next_Char - naslednji znak v nizu, ki bo obrnjen
o Dolžina - dolžina niza
o Pos - trenutni položaj v nizu
• InputBox za zajem niza. To je shranjeno v spremenljivki "Original String"
• Dolžina niza se izračuna s funkcijo LEN in shrani v spremenljivko Length
• zanka FOR… NEXT je nastavljena tako, da gre skozi niz, ki se začne pri zadnjem znaku in deluje nazaj za en znak naenkrat
• Naslednji znak v izvirnem nizu (ki deluje nazaj) se nato doda obrnjenemu nizu
• Ta zanka se ponavlja, dokler ne prečkamo celotne dolžine niza
• Obrnjeni niz je prikazan v polju MsgBox.
Prenesite datoteko Excel tukaj
