Обрните низ текста са ВБА
ВБА рутина испод омогућава кориснику да унесе низ, а затим се приказује исти низ уназад. На пример, „понедељак“ постаје „иадноМ“:
123456789101112131415161718192021222324252627282930313233343536 | Опција ЕксплицитноПриватна под -командаБуттон1_Цлицк ()'Дефинишите променљивеДим Оригинал_Стринг Ас СтрингДим Реверсед_Стринг Ас СтрингДим Нект_Цхар Ас СтрингДим Ленгтх Ас ИнтегерДим Пос Ас Интегер'Набавите оригинални низОригинал_Стринг = ИнпутБок ("Молимо унесите оригинални низ:")'Пронађите ревидирану дужину низаДужина = Лен (Оригинал_Стринг)'Подесите обрнути низРеверсед_Стринг = ""'Напредујте кроз низ на основу карактера'Почевши од последњег знака и идући ка првом знакуФор Пос = Ленгтх то 1 Степ -1Нект_Цхар = Мид (Оригинал_Стринг, Пос, 1)Реверсед_Стринг = Обрнут_Стринг & Следећи_ЧарНект ПосМсгБок "Обрнути низ је" & Реверсед_СтрингЕнд Суб |
Главне карактеристике кода су:-
• За активирање кода потребно је командно дугме за догађај клика
• Подешавају се следеће променљиве:-
о Оригинал_Стринг - оригинални низ који ће бити обрнут („понедељак“)
о Реверсед_Стринг - обрнути низ („иадноМ“)
о Нект_Цхар - следећи знак у низу који ће бити обрнут
о Дужина - дужина жице
о Пос - тренутна позиција у низу
• ИнпутБок за хватање низа. Ово је ускладиштено у променљивој „Оригинални низ“
• Дужина низа се израчунава помоћу функције ЛЕН и складишти у променљивој Дужина
• ФОР… НЕКСТ петља је подешена да пролази кроз низ који почиње од последњег знака и ради уназад један по један знак
• Следећи знак у оригиналном низу (рад уназад) додаје се обрнутом низу
• Ова петља се понавља све док не пређемо целу дужину низа
• Обрнути низ је приказан у МсгБок -у.
Преузмите Екцел датотеку овде