Page History

...

auto_open()
Lomake.Show
End Sub

Muutamia hyödyllisiä käskyjä

Syöttö, käsittely ja tulostus 1Sub nimi()

'Määrittelyt

Dim etunimi, sukunimi, kokonimi As String

'Syöttö

etunimi = InputBox("Kirjoita etunimesi")
sukunimi = InputBox("Kirjoita sukunimesi")

'Käsittely

kokonimi = etunimi & " " & sukunimi

'Tulostus

...

MsgBox ("Nimesi on " & kokonimi)

...

End Sub

MuuttujatyypitDim KokonaislukuMuuttuja as Integer

Dim MerkkijonoMuuttuja as String

...

Const Vakio as Integer = 10

Operaattoritsumma = 5 + 2

erotus = 5 - 2

tulo = 5 * 2

...

merkkijono = merkkijono1 + merkkijono2

Syöttö, käsittely ja tulostus 2Sub laskutoimitus()

'Muuttujien määrittelyt
Dim luku1, luku2, tulos As Double

...

'Tulostus
MsgBox ("Summa on " & Str(tulos))

End Sub

ValintarakenteetIf (ehto) Then

' toiminto
End If

If (ehto) Then
' toiminto 1
Else ' muuten
' toiminto 2
End If

...

Select Case TestiArvo
Case Is >= 100
' toiminto 1
Case Is >= 50
' toiminto 2
Case Is >= 0
' toiminto 3
Case Else ' muuten
' toiminto 4
End Select

Ehdot'Yhtä suuri kuin

Luku1 = Luku2

'Pienempi kuin
Luku1 < Luku2

...

'Tosi jos yksikin ehto toteutuu
ehto1 OR ehto2

ToistorakenteetDo While (ehto)

'toimenpiteet
Loop

For Laskuri = 1 To 10 Step 1
'toimenpiteet
Next Laskuri