'Tarkoituksena poimia kaksi viimeistä merkkiä
project 1
module 1 1
Option Base 1
Public Henkilo(5) As Variant
Private Sub cmdAnna_Click()
Cls
Prompt = "Anna nimi ja ikä muodossa kalletappinen09 (ikä kahdella numerolla)! "
For i = 1 To 5
Title = "Henkilönumero" & i
Henkilo(i) = InputBox(Prompt, Title)
Next i
End Sub
’Tähän asti koodi toimii. Mutta jokin mättää Right-kohdassa alapuolella
Private Sub Command2_Click()
Print "Henkilöiden iät"
Print
For i = 1 To 5
Print "Ikä on:"; i; "duunari", Right(" Henkilonumero ", 2)
Next i
End Sub
project 1
module 1 1
Option Base 1
Public Henkilo(5) As Variant
Private Sub cmdAnna_Click()
Cls
Prompt = "Anna nimi ja ikä muodossa kalletappinen09 (ikä kahdella numerolla)! "
For i = 1 To 5
Title = "Henkilönumero" & i
Henkilo(i) = InputBox(Prompt, Title)
Next i
End Sub
’Tähän asti koodi toimii. Mutta jokin mättää Right-kohdassa alapuolella
Private Sub Command2_Click()
Print "Henkilöiden iät"
For i = 1 To 5
Print "Ikä on:"; i; "duunari", Right(" Henkilonumero ", 2)
Next i
End Sub
Vastaukset 3
Vanhimmat
Toi sun Right palauttaa ne merkit lainausmerkkien sisässä olevasta sanasta eli Henkilönumero. Luultavasti toi Option Base vielä tarkoittaa sitä settä sun pitää laitta yhtä isompi numero siihen funktioon, mitä haluat palautettavien merkkien määräksi.
Sun pitäisi jollain saada se ohjelma lukemaan sitä taulukkoa. Tälle palstalle vastailee muutama guru jotka vois osata.
Korjaa näin (sama kirja menossa)
Right(Henkilo(i), 2)
Nykyisin kun on tuo lapsityövoiman käyttö tapeetilla, niin kai 'duunari' voi olla alle 10 vuotias. Eli jos haluaa muuttaa tulostuksen 08 -> 8, niin lisää tuohon vielä Val-function:
Val(Right(Henkilo(i), 2))