none
Ajuda com primeiro programa RRS feed

  • Pergunta

  • 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

    quinta-feira, 19 de fevereiro de 2015 23:03

Respostas