Sub vead1()
  a = 3
  b = 0
  On Error Resume Next 'jätab vigase käsu täitmata
  tulemus = a / b
  MsgBox tulemus
End Sub

Sub vead2()
  a = 3
  b = 0
  On Error Resume Next
  tulemus = -1 'tulemus, mis viitab probleemile
  tulemus = a / b
  MsgBox tulemus
End Sub

Sub vead3()
  a = 3
  b = 0
  On Error GoTo veahaldus
  tulemus = a / b
  MsgBox tulemus
  Exit Sub
veahaldus:
  Debug.Print "probleem " & Err.Number & " " & Err.Description
  tulemus = a + b
  Resume Next
End Sub

Sub vead4()
  a = 3
  b = 0
  On Error GoTo veahaldus
  tulemus = a / b
  MsgBox tulemus
  On Error GoTo 0 'hakkab jälle veateateid näitama
  Open "kala.txt" For Input As #1
  Exit Sub
veahaldus:
  Debug.Print "probleem " & Err.Number & " " & Err.Description
  tulemus = a + b
  Resume Next
End Sub


Sub andmetyybid1()
  Dim arv1 As Integer '+-32000
  Dim arv2 As Long ' +-2 miljardit
  'arv1 = 100000
  'MsgBox arv1
  arv2 = 100000
  MsgBox arv2
End Sub

Sub andmetyybid2()
  Dim rarv1 As Single '7 komakohta
  Dim rarv2 As Double '15 komakohta
  rarv1 = 3 / 7
  rarv2 = 3 / 7
  MsgBox rarv1 & " " & rarv2
  If rarv1 = rarv2 Then 'õnne asi, kas sobib
    MsgBox "samad"
  Else
    MsgBox "pole samad"
  End If
  If Abs(rarv1 - rarv2) < 0.001 Then MsgBox "ühesugused"
End Sub

Sub kuupaev()
  Dim aeg1 As Date
  aeg1 = Now 'päevad ja sekundid mõlemad
  MsgBox aeg1
  aeg1 = Date
  MsgBox aeg1 'päev, kuu, aasta
End Sub

Sub tõeväärtus()
   Dim t1, algarv As Boolean
   t1 = True
   If t1 Then MsgBox "pihtas"
   t1 = (4 > 3)
   If t1 Then MsgBox "jälle pihtas"
   algarv = True
   uuritav = 31
   For abi = 2 To uuritav - 1
     If uuritav Mod abi = 0 Then algarv = False
   Next abi
   If algarv Then MsgBox "On algarv" Else MsgBox "Pole algarv"
End Sub

Sub massiiv1()
   Dim töötajad(6 To 8) As String
   töötajad(6) = "Juku"
   töötajad(7) = "Kati"
   töötajad(8) = "Mati"
   For i = LBound(töötajad) To UBound(töötajad)
     MsgBox töötajad(i)
   Next i
End Sub

Sub kollektsioon1()
   Dim c As New Collection 'muutuva pikkusega massiiv
   c.Add "Juku"
   c.Add "Kati"
   MsgBox c.Count
   MsgBox "Esimene: " & c(1) ' või c.item(1)
   c.Add "Mati", before:=2
   For Each eesnimi In c
     MsgBox eesnimi
   Next eesnimi
   c.Remove (1) 'Juku ära
   For Each eesnimi In c
     MsgBox "Alles " & eesnimi
   Next eesnimi
End Sub