Fordítson meg egy szövegsorozatot VBA -val
Az alábbi VBA rutin lehetővé teszi a felhasználó számára, hogy karakterláncot írjon be, majd ugyanazzal a karakterlánccal visszafelé jeleníti meg. Például a „hétfő” lesz „yadnoM”:
| 123456789101112131415161718192021222324252627282930313233343536 | Explicit lehetőségPrivát alparancsButton1_Click ()'Definiálja a változókatEredeti_String halványítása karakterlánckéntDim Reversed_String karakterlánckéntDim Next_Char mint karakterláncHalvány hosszúság egészkéntDim Pos mint egész'Szerezd meg az eredeti húrtOriginal_String = InputBox ("Pls írja be az eredeti karakterláncot:")'Keresse meg a karakterlánc módosított hosszátHossz = Len (Original_String)'Állítsa be a fordított karakterláncotReversed_String = ""'Folytassa a karakterláncot karakterről karakterre- Az utolsó karaktertől kezdve az első karakter feléPoz = hosszúság 1 lépéshez -1Next_Char = Középső (Eredeti_String, Poz. 1)Reversed_String = Reversed_String & Next_CharKövetkező PozMsgBox "A fordított karakterlánc" & Reversed_StringEnd Sub |
A kód fő jellemzői a következők:-
• A kód aktiválásához parancsgombra van szükség - a kattintási eseményen
• A következő változók vannak beállítva:-
o Original_String - az eredeti karakterlánc, amely megfordul („hétfő”)
o Reversed_String - a fordított karakterlánc („yadnoM”)
o Next_Char - a karakterlánc következő karaktere, amely megfordul
o Hossz - a karakterlánc hossza
o Poz - a karakterlánc aktuális pozíciója
• InputBox a karakterlánc rögzítéséhez. Ezt az „Eredeti karakterlánc” változó tárolja
• A karakterlánc hossza a LEN funkció segítségével kerül kiszámításra, és a Length változóban tárolódik
• A FOR… NEXT ciklus úgy van beállítva, hogy végigmenjen a karaktersorozaton az utolsó karaktertől kezdődően, és egy -egy karakterrel visszafelé dolgozzon
• Az eredeti karakterlánc következő (visszafelé dolgozó) karaktere hozzáadódik a fordított karakterlánchoz
• Ez a ciklus addig ismétlődik, amíg át nem haladjuk a karakterlánc teljes hosszát
• A fordított karakterlánc megjelenik egy MsgBox -ban.
Töltse le az Excel fájlt itt
