...
| Code Block |
|---|
Sub TietojenKysely()
'Muuttujien esittely
Dim etunimi, sukunimi, nimi As String
'Tietojen syotto
etunimi = InputBox("Kirjoita etunimesi")
sukunimi = InputBox("Kirjoita sukunimesi")
'Tietojen yhdistaminen
nimi = etunimi & " " & sukunimi
'Tulostus
MsgBox ("Nimesi on " & nimi)
End Sub
|
MuuttujatyypitDim KokonaislukuMuuttuja as Integer
Muuttujatyypit
| Code Block |
|---|
Dim KokonaislukuMuuttuja as Integer |
| Code Block |
Dim Merkkijono as String Dim Mikatahansa as Variant 'Variant muttuja hyväksyy kaikki tyypit Dim Desimaaliluku as Double Dim KokonaislukuTaulukko(1 to 10) As Integer Const Vakio as Integer = 10 |
...