Tauluja ja merkkijonoja

Raili

Public Tiedot(5) As Variant
Dim KaTiedot(3, 2)

Kuinka käänetään yllä määritellyissä taulukoissa olevien merkkijonojen merkkien järjestys niin, että syntyy uudet vastaavat taulukot PublicUus(5) As Variant ja Dim KaTiedotUus, joissa merkeillä on käänteinen järjestys?

Eli Tiedot(5) taulussa "auto" muuttu muotoon "otua".

Ja KaTiedot muutuvat seuraavasti:

alkuperäinen KaTiedot(3,2)

Petteri Pura
Anneli Taina
Kimmo Sasi

KaTiedotUus   

araP iretteP
aniaT ilennA
isaS ommiK

2

350

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • Kode

      Aliohjelma palauttaa käännetyn merkkijonon (taulukoiden ulottuvuuksia ja indeksejä muutettu).

      Sub Main()
      Dim KaTiedot(3) As Variant
      Dim KaTiedotUus(3) As Variant
      Dim Tiedot(1) as Variant
      Dim Uus(1) As Variant
      Dim i As Integer

      KaTiedot(1) = "Petteri Pura"
      KaTiedot(2) = "Anneli Taina"
      KaTiedot(3) = "Kimmo Sasi"
      Tiedot(1) = "auto"

      For I = 1 To 3
      KaTiedotUus(I) = Vaihda(KaTiedot(I, 1))
      Next I
      Uus(1) = Vaihda(Tiedot(1))
      End Sub

      Function Vaihda(Mj As Variant)
      Dim I As Integer
      Dim MjUus As Variant

      For I = Len(Mj) To 1 Step -1
      MjUus = MjUus & Mid(Mj, I, 1)
      Next I
      Vaihda = MjUus
      End Function

    • Kunde

      Koden koodissa virhe
      KaTiedotUus(I) = Vaihda(KaTiedot(I, 1))
      pitäisi olla
      KaTiedotUus(I) = Vaihda(KaTiedot(I))

      Riippuu siitä miten tiedot syötetään yksi tai kaksirivisenä. Alkuperäinen oli ainakin määritelty 2 riviseksi, joten tässä malli molemmista

      Option Base 1
      Sub Main()
      Dim KaTiedot(3) As Variant
      Dim KaTiedotUus(3) As Variant
      Dim Tiedot(5) As Variant
      Dim Uus(5) As Variant
      Dim I As Integer
      KaTiedot(1) = "Petteri Pura"
      KaTiedot(2) = "Anneli Taina"
      KaTiedot(3) = "Kimmo Sasi"
      Tiedot(1) = "auto"
      For I = 1 To 3
      KaTiedotUus(I) = StrReverse(KaTiedot(I))
      Next I
      Uus(1) =StrReverse(Tiedot(1))
      End Sub

      tai
      Option Base 1
      Sub koe()
      Dim KaTiedot(3, 2)
      Dim KaTiedotUus(3, 2)
      Dim Tiedot(5) As Variant
      Dim Uus(5) As Variant
      Dim c As Integer
      KaTiedot(1, 1) = "Petteri"
      KaTiedot(1, 2) = "Pura"
      KaTiedot(2, 1) = "Anneli"
      KaTiedot(2, 2) = "Taina"
      KaTiedot(3, 1) = "Kimmo"
      KaTiedot(3, 2) = "Sasi"
      Tiedot(1) = "auto"
      For a = 1 To UBound(KaTiedot)
      c = 1
      For b = 2 To 1 Step -1
      KaTiedotUus(a, c) = StrReverse(KaTiedot(a, b))
      c = c 1
      Next b
      Next a
      Uus(1) =StrReverse(Tiedot(1))
      End Sub

    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Putin hoiti Suomen natoon ja myös Ruotsin

      Iso kiitos Vladimir Putinille. Hänen ansiosta pääsemme nyt Natoon. Putin halusi Naton lähelle ja nyt sai. Voimme tästä kiittää vain Putinia.
      Maailman menoa
      641
      7831
    2. Niinistö teki hetkessä Suomesta Venäjän ydinaseiden maalitaulun

      Kaiken lisäksi mies vielä lällätteli Putinille eilisessä tiedotustilaisuudessa ja käski katsomaan itseään peiliin. Kyllä vähän asiallisempaa käytöstä
      Maailman menoa
      431
      2109
    3. Voi Stefu ja sun kiivas luonteesi

      Sielä lentelee ullakkohuoneiston ikkunasta daamin vaatteet ja matkalaukut pitkin pihaa. Toisaalta,en ihmettele yhtään että tämä suhde päättyi näin,kyl
      Kotimaiset julkkisjuorut
      220
      1998
    4. Poliisi otti Stefun kiinni!

      Seiska tietää kertoa.
      Kotimaiset julkkisjuorut
      143
      1596
    5. Veikkaus: Miten The Rasmus pärjää Euroviisuissa?

      Euroviisuhuuma on ylimmillään, kun Suomi ja The Rasmus taistelee biisillään Jezebel. Bändi on tikissä, kunhan Lauri Ylösen ääni kantaa. Mitä veikka
      Viihde ja kulttuuri
      51
      1219
    6. Ohhoh! Martina Aitolehti ja seurapiirihurmuri-Jesper ekassa yhteiskuvassa - Sutinaa Mallorcalla!

      Martina Aitolehti ja seurapiirijulkkis-Jesper nauttivat toisistaan varsin vauhdikkaissa merkeissä Mallorcalla. Aitolehti ei ole esitellyt rakastaan vi
      Kotimaiset julkkisjuorut
      25
      1158
    7. Stefanilta tuli taas karu totuus Sofiasta

      Marokkolainen h*o*ra! Voi tsiisus kun mulla on hauskaa! Lumput lentää ikkunasta kun Stefu raivoaa h*uralleen🤣🤣🤣 Nyt ne popparit tulille, tästä tule
      Kotimaiset julkkisjuorut
      95
      1024
    8. Ootko onnellinen kun ei tarvitse

      nähdä tätä tyhmää naamaa enää koskaan? Multa se särkee sydämen, mutta minkäs teen. Vaikka olisi kuinka sinnikäs eikä hellittäisi, se ei aina auta.
      Ikävä
      65
      823
    9. Oletko nähnyt eroottiset kohuleffat? Fifty Shades Of Grey -trilogia tv:stä

      Fifty Shades -trilogia starttaa, kun nuori opiskelijanainen Anastasia tapaa rikkaan liikemiehen. Seksisuhdehan siitä starttaa, höystettynä sadistisill
      Suhteet
      6
      697
    10. Sofia matkii Martinaa

      Sofia etsii omaa lippisjonnea mäkkäreistä ja itiksestä. Tuskin löytää yhtä komeaa.
      Kotimaiset julkkisjuorut
      133
      670
    Aihe