Ficha nº11

1.

Código:

Private Sub Command1_Click()

    Dim cont As Integer, num As Integer

    

    For cont = 1 To 6

        Randomize

        num = Int(Rnd() * 49) + 1

        Picture1.Print num

    Next cont

End Sub

2.

Código:

Private Sub Command1_Click()

    Dim cont As Integer, num As Integer, aleatorio As Integer

    

    num = Val(InputBox("Introduza quantos aleatórios quer calcular", "Entrada de dados"))

    

    For cont = 1 To num

        Randomize

        aleatorio = Int(Rnd() * 49) + 1

        Picture1.Print aleatorio

    Next cont

    

End Sub

3.

Código:

Private Sub Command1_Click()

    Dim aleatorio As Integer, num As Integer

    

    Picture1.Cls

    

    Randomize

    aleatorio = Int(Rnd() * 5) + 1

    

    num = Val(InputBox("Qual o número que o computador gerou?", "Adivinha"))

    

    If aleatorio = num Then

        Label1.Caption = "Acertou"

        Picture1.Print aleatorio

    Else

        Label1.Caption = "Errou"

        Picture1.Print aleatorio

    End If

    

End Sub

4.

Código:

Private Sub Command1_Click()

    Dim aleatorio As Integer, cont As Integer, num As Integer

    

    Picture1.Cls

    cont = 0

    

    Randomize

    aleatorio = Int(Rnd() * 5) + 1

    

   

    

    Do

        If num <> aleatorio Then

            num = Val(InputBox("Qual o número que o computador gerou?", "Entrada de dados"))

            cont = cont + 1

        End If

    Loop Until num = aleatorio

    

    Picture1.Print aleatorio

    Label1.Caption = "Acertou em " & cont & " tentativas"

End Sub