Kirjutab maatriksi A töölehele ettemääratud piirkonda. Sub Tee_massiiv() Kutsub protseduuri Kustuta. Küsib veergude ja ridade sisendeid, kui tegu on ruutmaatriksiga, siis k Loob juhuslike arvudega maatriksi ja vektori etteantud kohale. Väljastab kontrolli tulemusena lahtris tüübi. Sub Kustuta() Kustutab lahtri ja sellega kaasneva piirkonna, mis on aktiveeritud. Lisaks kustutab väärtuse lahtrites "abs_kesk", "maks", "S", "minallPD", "nimi1" ja "x". rotseduuri kindlaks, kas tegu on ristkülik- endi otsimise protseduuri min_el ja otseduuri liida, millega liidetakse negatiivse duuri abs_kesk, millega leitakse kogu nevat värvi peadiagonaali, sellest allpool ja alse arvu peadiagonaalil ja väljastab selle äljastab selle lahrisse "S". Kutsub välja lle lahtrisse minallPD. Kutsub välja arvud ja väljastab need nihkega massiivist. vektor. ga vektorist. umma liikmete arvuga. alpool oleva ala. e elemendi veeru summa. l peadiagonaali
juku.IncrementTop 10 If juku.Top >Shapes("piir").Top Then Exit Do paus 0.1 Loop MsgBox "Olen üle!" End Sub piir J B! Kordusi katkestavaid lauseid võib olla suvaline hulk. Muuhulgas võib kordamise katkestamine olla ühtlasi ka rotseduuri või programmi töö katkestamine. simesel juhul on Exit Do asemel Exit Sub või Exit unction. teisel juhul - End. atkestaja (If-lause) võib olla ka üldisem If tingimus Then laused ' täidetakse enne katkestamist Exit Do End If p Then Exit Do Kordused_1 Kordused 2 Lõpmatu kordus katkestusega. Do ... Exit Do ... Loop Harjutus "Auto_1" Harjutus "Auto_2 samm aeg
annaabi.ee 
