Loop Until tingimus For v = a1 To a2 [Step a3] (vaikimisi 1) lause(d) Next v Lauseid korratakse iga juhtmuutuja v väärtuse Do While tingimus Kordus eelkontrolliga jaoks. lause(d) (kui tingimus pole täidetud, Loop ei täideta lauseid kordagi) Kordus hulga iga elemendiga element - muutuja, viitab hulga elemendile;
Do ... Loop-lausesse kuuluvaid lauseid täidetakse alati vähemalt üks kord. FOR lause For ... Next-lauses (lühemalt For-lauses) käsutatakse korduse täitmise juhtimiseks spetsiaalset juhtmuutujat, mille väärtust muudetakse automaatselt algväärtusest lõppväärtuseni etteantud sammuga. Taolist kordust nimetatakse sageli juhtmuutujaga korduseks. Lause tüüpstruktuur ja täitmiseeskiri (kui samm - av3 > 0) on järgmised: Siin on v juhtmuutuja ja av1, av2, av3 arvavaldised: av1 - juhtmuutuja algväärtus, av2- lõppväärtus, av3- samm. Vaikimisi samm on l. Exit For-lause katkestab korduse täitmise ning annab täitmisjärje järgmisele lausele. Lause täitmine toimub järgmiselt. Juhtmuutuja saab järjest väärtusi av1-st kuni av2-ni sammuga av3 ning iga juhtmuutuja väärtuse korral täidetakse laused, mis on For- ja Next-lause vahel. Samm av3 võib olla nii positiivne kui ka negatiivne. Kui lauses puudub fraas Step av3, siis võetakse sammu väärtuseks üks
tegevused_2 pausi pikkuse väärtustega. Loop Tegevuste seas peab olema selliseid, mis muudavad objektide omadusi: vasak serv, ülemine serv, pöördenurk jm. g e st, da m) ja a. J For-laused For ... Next-lause. Juhtmuutujaga kordus v = av1 For v = av1 To av2 [ Step av3 ] laused Next v laused v - juhtmuutuja v = v + av3 av1 - juhtmuutuja algväärtus, av2 - lõppväärtus, av3 - samm, vaikimisi - 1 järgmine alg Sub Mine() Const n = 30 Sub Hüppa(kuju As Dim juku As Shape, i Dim i
tegevused_2 pausi pikkuse väärtustega Loop Tegevuste seas peab olema selliseid, mis muudavad objektide omadusi: vasak serv, ülemine serv, pöördenurk jm. Läks Aitab J For-laused For ... Next-lause. Juhtmuutujaga kordus v = av1 For v = av1 To av2 [ Step av3 ] laused Next v laused v - juhtmuutuja v = v + av3 av1 - juhtmuutuja algväärtus, av2 - lõppväärtus, av3 - samm, vaikimisi - 1 järgmine alg Mine Tule Sub Mine() Const n = 30 Sub Hüppa(kuju As S Dim juku As Shape, i Dim i Set juku = Shapes("juku") For i = 1 To n
tegevused_2 pausi pikkuse väärtustega. Loop Tegevuste seas peab olema selliseid, mis muudavad objektide omadusi: vasak serv, ülemine serv, pöördenurk jm. Läks Aitab J For-laused For ... Next-lause. Juhtmuutujaga kordus v = av1 For v = av1 To av2 [ Step av3 ] laused Next v laused v - juhtmuutuja v = v + av3 av1 - juhtmuutuja algväärtus, av2 - lõppväärtus, av3 - samm, vaikimisi - 1 järgmine alg Mine Tule Sub Mine() Const n = 30 Sub Hüppa(kuju As S Dim juku As Shape, i Dim i
1) või paus 0.1 Call Hüppa (pall, 2, 10, 0.1) või Hüppa pall, 2, 10, 0.1 NB! Kui kasutatakse võtmesõna Call, peavad argumendid sulgudes Kui ei kasutata, sulge ei tohi olla! id sulgudes! Juhtmuutujaga kordus. For-lause m > av2 For m = av1 To av2 [ Step av3 ] * m = av1..av2, av3 laused laused Next m m -juhtmuutuja (loendur) av1 - algväärtus av2 - lõppväärtus av3 - muutumise samm vaikimisi 1 Sub Hüppa(kuju As Shape, Optional n = 3, _ Võtmesõna Optional näitab, Optional h = 15, Optional p = 0.1) et parameetrile vastava argumendi või ' n - korduste arv (vaikimisi 3), Argumendi puudumisel võetakse param
.. Dim kv, kp, .. kv = kuju.Left : kp = kv + kuju.Wid ... Objekt FillFormat määratlekse Shape-objekti omadusega Fill End Sub Objekt LineFormat määratlekse Shape-objekti omadusega Line 4) For Each-lause juhtmuutuja ab Objekt ColorFormat määratlekse FillFormat-objekti või Dim kuju As Shape LineFormat-objekti omadusega ForeColor For Each kuju In Shapes Kujundi täitevärvus: Msgbox kuju.Name kujund.Fill.ForeColor.ShemeColor = värvinuber (0 ... 80) Next kuju kujund.Fill.ForeColor.RGB = RGB(R, G, B) R; G, B = 0...255 Kujundi äärise värvus kujund.Line.ForeColor
annaabi.ee 
