%function random() Dim Limite Limite = 9 Randomize() random=CInt((Limite - 1)*Rnd() + 1 ) end function %>