...
Syöttö, käsittely ja tulostus 1Sub nimi()
'Määrittelyt
| Code Block |
|---|
'Määrittelyt Dim etunimi, sukunimi, kokonimi As String 'Syöttö |
...
etunimi = InputBox("Kirjoita etunimesi") |
...
sukunimi = InputBox("Kirjoita sukunimesi") |
...
'Käsittely |
...
kokonimi = etunimi & " " & sukunimi |
...
| Code Block |
|---|
'Tulostus MsgBox ("Nimesi on " & kokonimi) End Sub |
MuuttujatyypitDim KokonaislukuMuuttuja as Integer
...