Loop While tingimus väär Sub Mäng_3() ' Kordab lööke. Juhitav kordus Dim n% Range("andmed").ClearContents n = InputBox("Mitu lööki?", "Juku", 20) n - täisarvuline muutuja - löökide arv Do % - tüübi (täisarvu) tunnus Löök InputBox - sisendboks (VBA funktsioon) paus 0.5 Msgbox - teateboks (VBA funktsioon) Loop While Range("lööke") < n MsgBox "Aitäh! Kohtumiseni!", , "Juku" End Sub Mäng_1() Sub Mäng_2() matu kordus, DoEvents ' Lõpmatu kordus, paus nge("andmed").ClearContents Range("andmed").ClearContents Do all Löök Call Löök oEvents Call paus (0.5) op Loop
eeskirja kirjutatava väärtuse leidmiseks, objekt kujutab Txtpindala.text = 3 * Sin(2 * x), Dialoogibokside käsutamine Dialoogibokse võib käsutada teadete väljastamiseks ning üksikväärtuste lugemiseks ja väljastamiseks. Siin vaadeldakse nende käsutamise lihtsamaid võimalusi. VBA siseprotseduur MsgBox võimaldab väljastada teateid ja üksikuid väärtusi. Tema lihtsaim variant on järgmine: MsgBox stringavaldis Lause täitmisel peatatakse programmi täitmine ja kuvatakse teateboks stringavaldise väärtusega ja nupuga OK (vt jaotis 1). Kui kosutaja klõpsab nuppu OK või vajutab klahvile Enter, eemaldatakse boks ja programmi töö jätkub. Üksikute väärtuste lugemiseks võib käsutada VBA sisefunktsiooni InputBox, mille põhivariant on järgmine: muutuja = lnputBox(teaote [,päis, pakkumine]) Funktsioonil on üks kohustuslik argument - teade, mis võib üldjuhul olla stringavaldis. Lause
annaabi.ee 
