function pikemNimi(nimi1 as String, nimi2 as String)
  if len(nimi1)>len(nimi2) then
    pikemNimi=nimi1
  else
    pikemNimi=nimi2
  end if
end function

function tekstiPikkus(tekst as String)
  tekstiPikkus=len(tekst)
end function

function kasAlgarv(arv as integer)
  jagub="ei"
  jagaja=2
  while jagaja<=sqr(arv)
    if arv mod jagaja=0 then
      jagub="jah"
    end if
    jagaja=jagaja+1
  wend
  if jagub="jah" then
    kasAlgarv="ei"
  else
    kasAlgarv="jah"
  end if
end function

sub test3
  'Jäägi leidmine
  arv1=5
  arv2=3
  jaak=arv1 mod arv2
  msgbox jaak
end sub

function korruta(arv1 as integer, _
                 arv2 as integer)
  korruta=arv1*arv2
end function


' Koosta programm, mis mõtleks juhusliku arvu, 
'  laseks kasutajal pakkuda ning teataks, 
'  kas pakuti õigesti, vähem või rohkem

'  Luba pakkuda seni kuni pihta saadakse.
function pii()
  pii=3.14
end function

sub pakkumine1
  dim arvutiarv as Integer, inimesearv as Integer
  arvutiarv=int(5*rnd)
  inimesearv=-1
  while arvutiarv<>inimesearv
   inimesearv=inputbox("Palun arv, väiksem kui 5")
   msgbox "arvudeks olid " & arvutiarv & _
    " ja " & inimesearv
   if arvutiarv>inimesearv then
    msgbox "Pakkusid vähem"
   end if
   if arvutiarv < inimesearv then
    msgbox "Pakkusid rohkem"
   end if
   if arvutiarv=inimesearv then
    msgbox "Pihtas"
   end if
  wend
end sub

sub juhuarv
  msgbox rnd 'juhuslik arv nullist üheni
  msgbox 5*rnd 'juhuslik arv nullist viieni
  msgbox int(5*rnd) 
     'juhuslik täisarv nullist neljani
end sub


sub kordused1
  dim i as Integer
  i=0
  while i<5
    msgbox "Tere " & i & ".korda"
    i=i+1
  wend  
end sub

sub Main
  ' Küsi temperatuur ning väljasta, 
  ' kas on soe või külm.
  dim temperatuur as Double
  temperatuur=InputBox("Palun temperatuur")
  if temperatuur<15 then
    msgbox "jahe"
  else
    msgbox "soe"
  end if
  test1
end sub

sub test1
  dim eesnimi as String
  dim arv1 as Integer, arv2 as Integer
  eesnimi=InputBox("Palun eesnimi")
  msgbox "Tere, " & eesnimi
  arv1=InputBox("Palun esimene arv")
  arv2=InputBox("Palun teine arv")
  msgbox "Nende korrutis on " & (arv1*arv2)
  if arv1>arv2 then
    msgbox "Esimene arv on suurem kui teine"
  else  
    msgbox "Esimene arv pole suurem kui teine"  
  end if
end sub