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
Tauluja ja merkkijonoja
2
350
Vastaukset
- 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
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.6417831Niinistö 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ä4312109Voi 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,kyl2201998- 1431596
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ä veikka511219Ohhoh! 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 vi251158Stefanilta 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ä tule951024Ootko 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.65823Oletko 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ä sadistisill6697Sofia matkii Martinaa
Sofia etsii omaa lippisjonnea mäkkäreistä ja itiksestä. Tuskin löytää yhtä komeaa.133670