Sub esimene()
    MsgBox "tere"
    eesnimi = InputBox("Mis su nimi on")
    MsgBox "Tere, " & eesnimi
End Sub

Sub kontroll()
    eesnimi = InputBox("Mis su nimi on")
    If eesnimi = "Mari" Then
      MsgBox "Tule mulle külla!"
    Else
      MsgBox "Mind pole kodus"
    End If
End Sub

Sub kontroll2()
   temperatuur = Int(InputBox("Mis kraadiklaas näitab?"))
   If temperatuur > 15 Then
      If temperatuur > 25 Then
        MsgBox "Palav"
      Else
        MsgBox "Paras"
      End If
   Else
     If temperatuur >= 5 Then
      MsgBox "Jahe"
     Else
      MsgBox "Külm"
     End If
      'Kui sooja on alla 5 kraadi, siis külm, muidu jahe
   End If
End Sub


Sub kordus1()
   For i = 1 To 5
      MsgBox "tere " & i & ". korda"
   Next i
End Sub


Sub kordus2()
  loendur = 0
  Do
    vastus = InputBox("Mis on Eesti pealinn?")
    loendur = loendur + 1
  Loop Until (vastus = "Tallinn") Or (loendur >= 3)
  If loendur = 1 Then
     MsgBox "tubli"
  End If
End Sub

Sub juhuarv1()
   MsgBox Rnd()  ' arv nullist üheni
   a = Int(10 * Rnd()) ' arv nullist kümneni
   MsgBox a
End Sub

Sub arvamine1()
   a = Int(10 * Rnd()) ' arv nullist kümneni
   vastus = Int(InputBox("Palun arv"))
   MsgBox "Arvuti pakkus " & a
   If vastus > a Then MsgBox "Palju"
   If vastus < a Then MsgBox "Vähe"
   If vastus = a Then MsgBox "Pihtas"
End Sub

Sub arvamine2()
   a = Int(10 * Rnd()) ' arv nullist kümneni
   Do
     vastus = Int(InputBox("Palun arv"))
     If vastus > a Then MsgBox "Palju"
     If vastus < a Then MsgBox "Vähe"
   Loop Until vastus = a
   MsgBox "Pihtas"
End Sub

Sub lahtrid1()
  Range("a5") = "Ahoi"
  MsgBox Range("a6")
End Sub

Sub kokkuvote1()
  Set leht = Sheets.Add
  leht.Range("a1") = "Suurim sünniaasta"
  leht.Range("a2") = Sheet1.Range("b7")
End Sub