Programa do Euromilhões 

Parte Gráfica do programa

1->

 Adicionei novo item que se chama module

Parte Código:

Module Calculo

    Dim a As Integer

    Sub geraAleatorio(ByRef v() As Integer)

        Randomize()

        Form1.lsteuro.Items.Clear()

        For i = 0 To 6

            v(i) = Int(Rnd() * 50 + 1)

            Form1.lsteuro.Items.Add(v(i))

        Next

    End Sub

    Function MaiorNumero(ByVal x() As Integer)

        Dim maior As Integer

        maior = x(0)

        For i = 1 To 6

            If x(i) > maior Then

                maior = x(i)

            End If

        Next

        MaiorNumero = maior

    End Function

    Function MenorNumero(ByVal x() As Integer)

        Dim menor As Integer

        menor = x(0)

        For i = 1 To 6

            If x(i) < menor Then

                menor = x(i)

            End If

        Next

        MenorNumero = menor

    End Function

    Sub pp(ByRef palpite() As Integer)

        For i = 0 To 6

            palpite(i) = InputBox("Palpite " & i + 1, "Palpites")

            verifica1(palpite, i)

            verifica2(palpite, i)

            Form1.ListBox1.Items.Add(palpite(i))

        Next

    End Sub

    Sub verifica1(ByRef v() As Integer, ByRef indice As Integer)

        Do Until ((v(indice) >= 1) And (v(indice) <= 50))

            v(indice) = InputBox("Palpite " & indice + 1, "Palpites")

        Loop

    End Sub

    Sub verifica2(ByRef v() As Integer, ByRef indice As Integer)

        Dim val As Boolean

        Val = False

        Do Until val

            val = True

            For i = 0 To indice - 1

                If v(i) = v(indice) Then

                    v(indice) = InputBox("Palpite " & indice + 1, "Palpites")

                    val = False

                End If

            Next

        Loop

    End Sub

End Module

Form1:

Public Class Form1

    Dim opalpite(6) As Integer

    Dim x(6) As Integer

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        For i = 0 To 6

            x(i) = Nothing

        Next

    End Sub

    Private Sub btngerar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btngerar.Click

        geraAleatorio(x)

    End Sub

    Private Sub btnmaior_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmaior.Click

        MsgBox("Maior Número " & MaiorNumero(x), MsgBoxStyle.OkOnly, "Maior")

    End Sub

    Private Sub btnmenor_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnmenor.Click

        MsgBox("Menor Número " & MenorNumero(x), MsgBoxStyle.OkOnly, "Menor")

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim y As Integer

        y = MsgBox("Quer mesmo sair?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Sair")

        If y = vbYes Then

            Close()

        End If

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnlimpar.Click

        lsteuro.Items.Clear()

        ListBox1.Items.Clear()

    End Sub

    Private Sub ordenar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnordenar.Click

        lsteuro.Items.Clear()

        Array.Sort(x)

        For i = 0 To 6

            lsteuro.Items.Add(x(i))

        Next

    End Sub