Apgrieziet teksta virkni, izmantojot VBA
Tālāk sniegtā VBA rutīna ļauj lietotājam ievadīt virkni un pēc tam tiek parādīta ar to pašu virkni atpakaļ. Piemēram, “pirmdiena” kļūst par “yadnoM”:
| 123456789101112131415161718192021222324252627282930313233343536 | Skaidrs variantsPrivāta apakškomandaButton1_Click ()'Definējiet mainīgosDim Original_String kā virkneAtgrieztā_string kā virkneDim Next_Char kā virkneDim garums kā vesels skaitlisDim Pos kā vesels skaitlis'Iegūstiet oriģinālo stīguOriginal_String = InputBox ("Pls ievadiet sākotnējo virkni:")'Atrodiet pārskatīto virknes garumuGarums = Len (Original_String)'Iestatiet apgriezto virkniReversed_String = ""'Virzieties cauri virknei pēc rakstzīmēm"Sākot ar pēdējo rakstzīmi un pārejot uz pirmo rakstzīmiPos = garums līdz 1 solim -1Next_Char = Mid (Original_String, Pos, 1)Reversed_String = Reversed_String & Next_CharNākamā pozMsgBox "Apgrieztā virkne ir" & Reversed_StringBeigu apakš |
Koda galvenās iezīmes ir šādas:-
• Koda aktivizēšanai klikšķa gadījumā ir nepieciešama komandu poga
• Ir iestatīti šādi mainīgie:-
o Original_String - sākotnējā virkne, kas tiks mainīta (“pirmdiena”)
o Reversed_String - apgrieztā virkne (“yadnoM”)
o Next_Char - nākamā rakstzīme virknē, kas tiks mainīta
o Garums - virknes garums
o Pos - pašreizējā pozīcija virknē
• Ievades lodziņš virknes uztveršanai. Tas tiek saglabāts mainīgajā “Original String”
• Virknes garums tiek aprēķināts, izmantojot funkciju LEN, un tiek saglabāts mainīgajā garumā
• FOR… NEXT cilpa ir iestatīta, lai izietu virkni, sākot ar pēdējo rakstzīmi un strādājot atpakaļ vienu rakstzīmi vienlaikus
• Pēc tam apgrieztā virknē tiek pievienota nākamā rakstzīme sākotnējā virknē (darbojas atpakaļ)
• Šī cilpa tiek atkārtota, līdz esam šķērsojuši visu virknes garumu
• Apgrieztā virkne tiek parādīta MsgBox.
Lejupielādējiet Excel failu šeit
