Обърнете низ от текст с VBA
Програмата VBA по -долу позволява на потребителя да въведе низ и след това се представя със същия низ назад. Например „понеделник“ става „yadnoM“:
| 123456789101112131415161718192021222324252627282930313233343536 | Опция ИзричноPrivate Sub CommandButton1_Click ()„Определете променливиDim Original_String As StringDim Reversed_String As StringDim Next_Char As StringDim Length As IntegerDim Pos As Integer„Вземете оригиналния низOriginal_String = InputBox ("Моля, въведете оригиналния низ:")'Намерете преработената дължина на низаДължина = Len (Original_String)'Настройте обърнатия низОбърнат_Стринг = ""„Напредвайте през низ по символ по символ'Започвайки от последния знак и преминавайки към първия знакЗа Pos = дължина до 1 стъпка -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Обърнат_String & Next_CharСледващ позMsgBox "Обърнатият низ е" & Reversed_StringEnd Sub |
Основните характеристики на кода са:-
• Нуждае се от команден бутон, за да активира кода - при събитието щракване
• Настройват се следните променливи:-
o Original_String - оригиналният низ, който ще бъде обърнат („понеделник“)
o Reversed_String - обърнат низ („yadnoM“)
o Next_Char - следващият знак в низа, който ще бъде обърнат
o Дължина - дължината на низа
o Pos - текущата позиция в низа
• InputBox за улавяне на низ. Това се съхранява в променливата „Оригинален низ“
• Дължината на низа се изчислява с помощта на функцията LEN и се съхранява в променливата Дължина
• Цикъл FOR… NEXT е настроен да преминава през низ, започващ от последния знак и работещ назад един символ наведнъж
• Следващият знак в оригиналния низ (работещ назад) се добавя към обърнатия низ
• Този цикъл се повтаря, докато не преминем цялата дължина на низа
• Обърнатият низ се показва в MsgBox.
Изтеглете файла Excel тук
