Zemāk mēs apskatīsim programmu Excel VBA ka var reversās stīgas.
Situācija:
Ievietojiet komandas pogu savā darblapā un pievienojiet šādas koda rindiņas:
1. Pirmkārt, mēs deklarējam četrus mainīgos. Viens mainīgais, ko sauc par teksta tipu String, viens mainīgais, ko sauc par reversedText, arī tipa String, viens mainīgais, ko sauc par Integer tipa garumu, un viens mainīgais, kura nosaukums ir i.
Aptumšot tekstu kā virkni, apgrieztu tekstu kā virkni, garumu kā veselu skaitli, i kā veselu skaitli
2. Mēs inicializējam divus mainīgos. Mēs izmantojam funkciju InputBox, lai no lietotāja iegūtu teksta virkni. Mēs izmantojam Len funkciju programmā Excel VBA, lai iegūtu virknes garumu.
text = InputBox ("Ievadiet tekstu, kuru vēlaties mainīt")
garums = Len (teksts)
3. Mēs sākam For For Next cilpu.
Ja i = 0 līdz garumam - 1
4. Tagad nāk vienkāršs triks. Mēs ņemam pēdējo rakstzīmi no teksta un ievietojam to ReversedText priekšpusē. Lai iegūtu rakstzīmi no virknes, Excel VBA varam izmantot funkciju Mid. Mēs izmantojam & operatoru, lai savienotu (savienotu) divas virknes.
reversedText = reversedText & Mid (teksts, (garums - i), 1)
5. Neaizmirstiet slēgt cilpu.
Tālāk i
Piemērs: text = "Auto". Teksta garums ir 3. Ja i = 0 līdz 2, mēs iegūstam teksta apakšvirkni, sākot ar pozīcijas garumu - i ar garumu 1. Tādējādi, ja i = 0, vidējais (teksts, 3, 1) ir vienāds ar r. Mēs ievietojam r apgrieztā teksta pirmajā pozīcijā. Ja i = 1, vidējs (teksts, 2, 1) ir vienāds ar a. Mēs pievienojam a reversedText, kas kļūst par ra. Ja i = 2, vidējais (teksts, 1, 1) ir vienāds ar C. Mēs pievienojam C apgrieztajam tekstam, kas kļūst par raC.
6. Visbeidzot, mēs parādām reversedText, izmantojot MsgBox.
msgbox reversedText
7. Pārbaudiet programmu.
Rezultāts:
