Rastgele Kelİme Verme

[osmanfenerli1907]

MERHABALAR
Uzun bir aradan sonra(10 günlük) yine burdayım.Okula gidiyorum ya.
Ben commandbutton1 e tıklayınca label1 e aşağıdaki kelimelerden birini rastgele yazsın...

osman
ali
haluk
levent
sinan
ayşe
fatma
caner
cafer

KOLAY GELSİN..iyi günler

 

[Levent Menteşoğlu]

Aşağıdaki kodu deneyin.

deg = Array("osman", "ali", "haluk", "levent", "sinan", "ayşe", "fatma", "caner", "cafer", "cengiz")
Label1 = deg(Int(Rnd() * 10))

 

[osmanfenerli1907]

TEŞEKKÜRLER
birde commandbutton1e tıklayınca o isimler label1de 1 sn ara ile hızlıca gösterilebilir mi?BU İŞLEM RASTGLELE VERMEDEN ÖNCE olacak...