Visual basic

[HWSW Famulus]

> Public Function vbShiftRight(ByVal Value As Long, _
>                              Count As Integer) As Long
> Dim i As Integer

>   vbShiftRight = Value

>   For i = 1 To Count
>     vbShiftRight = vbShiftRight \ 2
>   Next

> End Function

>

ez azert durva (nekem) erre functiont irni

*2^n

-----------------------

A kod igy olvashatobb....
Mondjuk parhonap mulva
Ghz meg van boven hozza :-)

KJ


-- 
Ral tora ke 2006

-----------------------------------
 Szponzorunk: http://tonerbolt.hu/


-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.371 / Virus Database: 267.14.9/217 - Release Date: 2005.12.30.