Quantcast
Channel: loop!!!
Viewing all articles
Browse latest Browse all 8

loop!!!

0
0

uma questão fácil... mas q num to conseguindo resolver


é um loop que gera 4 numero diferentes(0, 1, 2, 3) em uma listbox em ordem randomica

eu quero que esse processo se repita por 10 vezes

Public Class Form2
    Dim numero(3) As Integer
    Dim randomico As New Random
    Dim num As Integer
    Dim contador As Integer = 0
    
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

                   Do Until (numero(0)) <> (numero(1)) And (numero(0)) <> (numero(2)) And _
                 (numero(0)) <> (numero(3)) And (numero(1)) <> (numero(2)) And _
                 (numero(1)) <> (numero(3)) And (numero(2)) <> (numero(3))

                For i = 0 To 3 Step 1
                    num = randomico.Next(4)
                    numero(i) = num
                    ListBox1.Items.Clear()

                    ListBox1.Items.Add(numero(0))
                    ListBox1.Items.Add(numero(1))
                    ListBox1.Items.Add(numero(2))
                    ListBox1.Items.Add(numero(3))
                Next
            Loop
       

    End Sub

    
    Private Sub ListBox1_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
       
    End Sub
End Class


Viewing all articles
Browse latest Browse all 8

Latest Images

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Vimeo 10.6.2 by Vimeo.com, Inc.

Vimeo 10.6.2 by Vimeo.com, Inc.

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Re:

Re:

Re:

Re:

Re:

Re:

Re:

Re:

Re:

Re:





Latest Images

Vimeo 10.7.0 by Vimeo.com, Inc.

Vimeo 10.7.0 by Vimeo.com, Inc.

HANGAD

HANGAD

MAKAKAALAM

MAKAKAALAM

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Doodle Jump 3.11.30 by Lima Sky LLC

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.1 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Vimeo 10.6.0 by Vimeo.com, Inc.

Re:

Re:

Re:

Re: