Programarea e amuzantă

' declarăm variabila
Dim x
' o iniţializăm cu 0
x = 0
' verificăm ce valoare trebuie să primească x în functie de caz
select case caz
    case 1
          x = x + 49
    case 2
          x = x + 41
end select
' cireaşa de pe tort
x = x

Exemplul 2:
dim x, i
x = 0
for i = 0 to 19
i = i + 1
next
( x = 20 era prea uşor?)

Programarea e amuzantă. Atunci când o citeşti.