OpenOffice.cz - web věnovaný kancelářským balíkům OpenOffice.org

Sub list2020 (list as Object, lastC as Integer, lastR as Integer)
dim bunka
rem pocet shod 20/20
dim cislaA(19)
dim cislaB(19)
dim p as Integer
for a=1 to lastR 'pro prvni radek az posledni
    for i=23 to 33
        bunka=list.getCellByPosition(i,a)
        bunka.value=0 ' vymaze pocet shod (pro opakovane spusteni)
    next i        
    'print "vynulovano"    
      for b=1 to 20 ' nacte cely radek do cislaA
           bunka=list.getCellByPosition(b,a)
           cislaA(b-1)=bunka.Value
      next b 
      for c=1 to lastR ' pro prvni radek az posledni
          if c<>a then ' ...krome sebe sameho
               for d=1 to 20 ' nacte cely radek do cislaB
                bunka=list.getCellByPosition(d,c)
                cislaB(d-1)=bunka.Value
               next d          
               rem pocet shod
               p=0
               for x=0 to 19
                   for y=0 to 19
                       if cislaA(x)=cislaB(y) then
                           p=p+1
                       end if
                   next y
               next x          
               rem konec
               rem vypise pocet shod
               p=p-10 ' uvazujeme pouze shodu vetsi nebo rovnu 10
               if p >=0 then
                   bunka=list.getCellByPosition(p+23,a) ' vychozi sloupec + p
                   bunka.value=bunka.value+1 ' inkrementuje "1"                  
               end if              
               rem konec          
           end if       
       next c
next a
rem konec
End Sub