Bom, eu estou criando meu primeiro programa, gostaria de ajuda com códigos para fazer os números virem em ordem crescente e para poder refazer o "Chute" apenas clicando no mesmo botão.
Tendei mudar eu mesmo mais não deu nada certo. Grato desde já.
Public Class Form1
Dim Randomico As New Random
Dim Valor(6) As Integer
Dim Número As Integer
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lbl_Titulo.Click
End Sub
Private Sub Btn_Chute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Chute.Click
For i = 1 To 6 Step 1
Dim Número = Int(Valor(i) * Rnd() + 1)
Dim numeroRepetido As Boolean = Valor(6)
Número = Randomico.Next(1, 60)
Valor(i) = Número
Next
Label1.Text = Valor(1)
Label2.Text = Valor(2)
Label3.Text = Valor(3)
Label4.Text = Valor(4)
Label5.Text = Valor(5)
Label6.Text = Valor(6)
End Sub
End Class
