sub lahtrisseKirjutamine
  Dim Doc As Object
  Dim Sheet As Object
  Dim Cell As Object
  Doc = StarDesktop.CurrentComponent 'Tööraamat/dokument, kui käivitada
töölehelt.
  Sheet = Doc.Sheets(1) 'esimene tööleht
  Cell = Sheet.getCellByPosition(4, 0) 'veerg, rida
  Cell.String = "Kuku"
end sub

sub lahtristLugemine
  Dim Doc As Object
  Dim Sheet As Object
  Dim Cell As Object
  Doc = StarDesktop.CurrentComponent 'Tööraamat/dokument, kui käivitada
töölehelt.
  Sheet = Doc.Sheets(0) 'esimene tööleht
  Cell = Sheet.getCellByPosition(4, 0) 'veerg, rida
  MsgBox Cell.String
end sub

sub kirjutaPaarisarvud
  Dim Doc As Object
  Dim Sheet As Object
  Dim Cell As Object
  dim reanr As Integer
  Doc = StarDesktop.CurrentComponent 'Tööraamat/dokument, kui käivitada
töölehelt.
  Sheet = Doc.Sheets(0) 'esimene tööleht
  reanr=0
  while reanr<10
    Cell = Sheet.getCellByPosition(0, reanr) 'veerg, rida
    cell.string=reanr*2
    reanr=reanr+1
  wend
end sub

sub nimedLeheAlgusest
  leht=StarDesktop.CurrentComponent.sheets(0)
  reanr=0
  while len(leht.getCellByPosition(0, reanr).String)>0
    'msgbox leht.getCellByPosition(0, reanr).String
    reanr=reanr+1
  wend
  'msgbox reanr  
  leht2=StarDesktop.CurrentComponent.sheets(1)
  leht2.getCellByPosition(0, 0).String=reanr
end sub

sub vanimaSynniaasta
  leht=StarDesktop.CurrentComponent.sheets(0) 
  vahim=int(leht.getCellByPosition(1, 0).string)
  reanr=1
  while(len(leht.getCellByPosition(1, _
                          reanr).string)>0)
    arv=int(leht.getCellByPosition(1, _
                          reanr).string)
    if arv<vahim then
      vahim=arv
    end if 
    reanr=reanr+1   
  wend
  msgbox vahim
end sub


sub vanimaJaNoorimaNimi
  leht=StarDesktop.CurrentComponent.sheets(0) 
  vahimNr=0
  suurimNr=0
  reanr=1
  while(len(leht.getCellByPosition(1, _
                          reanr).string)>0)
    arv=int(leht.getCellByPosition(1, _
                          reanr).string)
    if arv<int(leht.getCellByPosition(1, _
            vahimNr).string) then
      vahimNr=reanr
    end if 
    if arv>int(leht.getCellByPosition(1, _
            suurimNr).string) then
      suurimNr=reanr
    end if 
    reanr=reanr+1   
  wend
  leht2=StarDesktop.CurrentComponent.sheets(1) 
  leht2.getCellByPosition(0, 1).string="Vanim:"
  leht2.getCellByPosition(1, 1).string= _
          leht.getCellByPosition(0, vahimNr).string
  leht2.getCellByPosition(0, 2).string="Noorim:"
  leht2.getCellByPosition(1, 2).string= _
          leht.getCellByPosition(0, suurimNr).string
end sub

sub mituEsimeselAastal
  leht=StarDesktop.CurrentComponent.sheets(0) 
  aasta=leht.getCellByPosition(1, 0).string
  loendur=0
  reanr=0
  while len(leht.getCellByPosition(1, reanr).string)>0
    if aasta=leht.getCellByPosition(1, reanr).string then
      loendur=loendur+1
    end if
    reanr=reanr+1
  wend
  msgbox "Aastal " & aasta & " sünniti " & _
      loendur & " korda."
end sub

sub mituIgalAastal
 leht=StarDesktop.CurrentComponent.sheets(0) 
 uuritavAastaRida=0
 while(len(leht.getCellByPosition(1, _
                 uuritavAastaRida).string)>0) 
  aasta=leht.getCellByPosition(1, _
                   uuritavAastaRida).string
  loendur=0
  reanr=0
  while len(leht.getCellByPosition(1, reanr).string)>0
    if aasta=leht.getCellByPosition(1, reanr).string then
      loendur=loendur+1
    end if
    reanr=reanr+1
  wend
  msgbox "Aastal " & aasta & " sünniti " & _
      loendur & " korda."
  uuritavAastaRida=uuritavAastaRida+1
 wend
end sub