Keskustelu: Ohjelmointikysymykset: VB6: Random

Elikkä miten saan jos annan esim teksti kenttiin eti vaihtoehtoja ja painan commandbuttonista ni se arpoo vaikka viidenteen tekstikenttään 4 muusta randomina jonkun sanan

txtSanat(4) = txtSanat(Int(4 * rnd))

Ööh.. En nyt oikein ymmärtänyt, selitäppä hieman yksinkertaisemmin.
Eli saat arvottua jonkin luvun vaikka näin:

Dim Luku As Integer

    Randomize
    Luku = Int(Rnd * 10) + 1

siis meinaan että ohjelma arpoo sana vaihtoehdoista yhden

Indexoit textboxit ensin ja sitten

Sub Command1_Click ()
s = Int(Rnd * 3)
text1(4) = text0(s)
End Sub

edit: kood.muok.

Tallennat sanat taulukkoon, ja sitten arvot em. Rnd-funktiolla jonkin alkion taulukosta, ja vaihdat sen osoittaman tekstin tekstikenttään.

kannatan tuota hunajavohvelin tapaa, eli taulukkoon kaikkia sanoja mitä halutaan ja randomilla arvotaan luku ja luvulla katotaas että esim taulukon kohdassa 1 on sana 'moi' ja jos on arvottu luku 1 niin tuodaan näytölle sana "moi"
ääh...monimutkaisesti taas selitetty, mutta vielä monimutkaisemmin kysyttiin itse kysymystä kun sai lukea taas muutamaan otteeseen ja miettiä...