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 pl = Timer() + pp kuju.IncrementTop -h Do paus 0.1 DoEvents kuju.IncrementTop h Loop While Timer() < pl paus 0.1 End Sub Next i nd Sub meprotseduurilised prgorammid kitab sekundit Funktsiooni värtuste keskmise ja maksimumi leidmine algus samm lõpp jaotisi jaotisi1 -10 1 10 20 20 x F_x #NAME? #NAME? keskmine max #NAME? #NAME? Excel VBA Excel VBA #NAME? #NAME? #NAME? #NAME? #NAME? #NAME? #NAME? #NAME? #NAME? #NAME? F_x #NAME? #NAME? #NAME? #NAME? 12 #NAME? #NAME
im i Sub paus(pp) Protseduur paus tekitab or i = 1 To n Dim pl pausi pikkusega pp sekundit pl = Timer() + pp kuju.IncrementTop -h Do paus 0.1 DoEvents kuju.IncrementTop h Loop While Timer() < pl paus 0.1 End Sub ext i d Sub meprotseduurilised prgorammid Funktsiooni värtuste keskmise ja maksimumi leidmine Fx 3 sin( 2 x 1) 5 algus samm lõpp jaotisi jaotisi1 -5 1 5 10 1000 x F_x -5 -4.779704 keskmine max -4 #VALUE! Excel VBA Excel VBA -3 #VALUE! 0.421469 0.421469 7.474375 7.474375 -2 #VALUE!
im i Sub paus(pp) Protseduur paus tekitab or i = 1 To n Dim pl pausi pikkusega pp sekundit pl = Timer() + pp kuju.IncrementTop -h Do paus 0.1 DoEvents kuju.IncrementTop h Loop While Timer() < pl paus 0.1 End Sub ext i d Sub meprotseduurilised prgorammid Funktsiooni värtuste keskmise ja maksimumi leidmine Fx 3 sin( 2 x 1) 5 algus samm lõpp jaotisi jaotisi1 -10 1 10 20 20 x F_x -10 0.277869 keskmine max -9 #VALUE! Excel VBA Excel VBA -8 #VALUE! -0.698822 -0.698822 7.474375 7.474375 -7 #VALUE! -6 #VALUE!
annaabi.ee 
