fakat uzun olmuş not düşeyim dedim
bir dizi yapıp
Dim dizi, i(10) AsInteger
for i=1 to kactaneistiyorsan
dizi(i) = rnd * 39
next

kodları kafamdan koydum hatalı olabilirdaha kısa yontem diye koydum isteyen olursa buda aklında olsun