Odwróć ciąg tekstu za pomocą VBA
Poniższa procedura VBA umożliwia użytkownikowi wprowadzenie ciągu, a następnie jest prezentowana z tym samym ciągiem od tyłu. Na przykład „poniedziałek” staje się „jadnoM”:
| 123456789101112131415161718192021222324252627282930313233343536 | Opcja WyraźnaPrywatna Sub CommandButton1_Click()„Zdefiniuj zmienne”Dim Original_String As StringDim Reversed_String As StringDim Next_Char As StringDim Długość jako liczba całkowitaDim Pos jako liczba całkowita'Pobierz oryginalny ciągOriginal_String = InputBox("Proszę wprowadzić oryginalny ciąg:")„Znajdź poprawioną długość sznurka”Długość = Len(Original_String)'Skonfiguruj odwrócony ciągReversed_String = ""'Przejdź przez ciąg znak po znaku„Zaczynając od ostatniego znaku i idąc w kierunku pierwszego znaku”Dla poz = długość do 1 kroku -1Następny_znak = Mid(Original_String, Pos, 1)Reversed_String = Reversed_String i Next_CharNastępna pozycjaMsgBox "Odwrócony ciąg to " & Reversed_StringNapis końcowy |
Główne cechy kodu to:-
• Potrzebuje przycisku polecenia, aby aktywować kod - w przypadku kliknięcia
• Ustawiane są następujące zmienne:-
o Original_String - oryginalny ciąg, który zostanie odwrócony („Poniedziałek”)
o Reversed_String - odwrócony ciąg („yadnoM”)
o Next_Char - następny znak w ciągu, który zostanie odwrócony
o Długość - długość sznurka
o Pos - aktualna pozycja w ciągu
• InputBox do przechwytywania ciągu. Jest on przechowywany w zmiennej „Original String”
• Długość ciągu jest obliczana za pomocą funkcji LEN i przechowywana w zmiennej Długość
• Pętla FOR… NEXT jest skonfigurowana do przechodzenia przez łańcuch zaczynając od ostatniego znaku i pracując wstecz o jeden znak na raz
• Następny znak w oryginalnym ciągu (działający wstecz) jest następnie dodawany do odwróconego ciągu
• Ta pętla jest powtarzana, dopóki nie przejedziemy całej długości struny
• Odwrócony ciąg jest wyświetlany w MsgBox.
Pobierz plik Excel tutaj
