Visual Basic - algoritmus

Zappir

Caute, potreboval bi som pomoc z algoritmom. Mal bi z cisiel od 1 do 30 nahodne vybrat 10 cisiel a ulozit ich do pola. Cisla sa nesmu opakovat.

//autoeditácia príspevku ( 09 Jan 2009, 10:10 )
Takze vymyslel som toto

Kód: Vybrať všetko

 pocitadlo = 0
        If pocitadlo <> 10 Then
            Randomize()
            zasobnik = Int((30 * Rnd()) + 1)
            If zasobnik <> otazka(0) And otazka(1) And otazka(2) And otazka(3) And otazka(4) And otazka(5) And otazka(6) And otazka(7) And otazka(8) And otazka(9) Then
                otazka(pocitadlo) = zasobnik
                pocitadlo = pocitadlo + 1
            End If
        End If

Nak to nefunguje, poradite mi prosim co stym?

neutronmind

Zle to porovnavas. Malo by tam imho byt

Kód: Vybrať všetko

If zasobnik <> otazka(0) And zasobnik <> otazka(1) And zasobnik <> otazka(2) ...

- lepsie by vsak bolo spravit to v cykle.

Aj ked toto riesenie je dost neefektivne, pozri http://www.hojko.com/pomoc-s-programom- ... 07042.html