kuju.IncrementTo Shapes("pall").IncrementTop 10 paus 0.1 paus 0.1 Next i Next i End Sub Hüppa Shapes("pall"), 3, 25 Mitmeprotseduurilised pr Hüppa juku, 3, 15 End Sub piir J v = av1 * v =av1, av2, av3 v <= av2 tegevused laused järgmine järgmine ub Hüppa(kuju As Shape, n, h) Protseduur paus tekitab Dim i Sub paus(pp) pausi pikkusega pp sekundit For i = 1 To n Dim pl
For i = 1 To n paus 0.1 juku.IncrementTop 10 kuju.IncrementTop Shapes("pall").IncrementTop 10 paus 0.1 paus 0.1 Next i Next i End Sub Hüppa Shapes("pall"), 3, 25 Hüppa juku, 3, 15 End Sub Mitmeprotseduurilised pr piir J v = av1 * v =av1, av2, av3 v <= av2 tegevused laused järgmine järgmine b Hüppa(kuju As Shape, n, h) im i Sub paus(pp) Protseduur paus tekitab or i = 1 To n Dim pl pausi pikkusega pp sekundit
IncrementTop Shapes("pall").IncrementTop 10 paus 0.1 paus 0.1 Next i Next i End Sub Hüppa Shapes("pall"), 3, 25 Hüppa juku, 3, 15 End Sub Mitmeprotseduurilised pr piir J v = av1 * v =av1, av2, av3 v <= av2 tegevused laused järgmine järgmine b Hüppa(kuju As Shape, n, h) im i Sub paus(pp) Protseduur paus tekitab or i = 1 To n Dim pl pausi pikkusega pp sekundit
annaabi.ee 
