По -долу ще разгледаме програма в Excel VBA че може обратни струни.
Ситуация:
Поставете команден бутон на работния си лист и добавете следните кодови редове:
1. Първо, декларираме четири променливи. Една променлива, наречена текст от тип String, една променлива, наречена reversedText също от тип String, една променлива, наречена дължина от тип Integer, и една променлива, наречена i от тип Integer.
Затъмняване на текст като низ, обърнат текст като низ, дължина като цяло число, i като цяло число
2. Инициализираме две променливи. Използваме функцията InputBox, за да получим текстов низ от потребителя. Използваме функцията Len в Excel VBA, за да получим дължината на низ.
text = InputBox ("Въведете текста, който искате да обърнете")
дължина = Len (текст)
3. Стартираме цикъл For Next.
За i = 0 Към дължина - 1
4. Сега идва простият трик. Взимаме последния знак от текст и го поставяме в предната част на ReversedText. Можем да използваме функцията Mid в Excel VBA, за да извлечем знак от низ. Използваме оператора &, за да свържем (съединим) два низа.
reversedText = reversedText & Mid (текст, (дължина - i), 1)
5. Не забравяйте да затворите цикъла.
Следва i
Пример: text = "Автомобил". Дължината на текста е 3. За i = 0 до 2 извличаме поднизата от текст, започваща от дължина на позицията - i с дължина 1. Така, за i = 0, Mid (текст, 3, 1) е равно на r. Поставяме r на първата позиция на reversedText. За i = 1, Mid (текст, 2, 1) е равно на a. Добавяме a към reversedText, който става ra. За i = 2, Mid (текст, 1, 1) е равно на C. Добавяме C към обърнат текст, който става raC.
6. Накрая показваме reversedText с помощта на MsgBox.
msgbox reversedText
7. Тествайте програмата.
Резултат: