Solución Examen Parcial Vb.Net

Aqui posteo el codigo completo del examen parcial de Visual Basic.Net
Lo hice a mi manera, espero que les sea de ayuda...


Pasos ---
1) Creas una biblioteca de clases, en este caso yo le puse de nombre De-ele-ele
2)Este es el codigo de la dll.

--------------------------------------------------------------------------------------------------------------------------

Public Class Class1
    Dim n As Integer
    Dim final(ene - 1) As Double
    Private Property ene()
        Get
            Return n
        End Get
        Set(ByVal value)
            n = value
        End Set
    End Property
    Public Sub inject(ByVal principal As System.Windows.Forms.Form, ByVal n As Integer, ByVal np As Integer, ByVal nl As Integer)
        Dim i, j, w As Integer
        Dim k As String() = {"Nombre", "Apellido", "P1", "P2", "L1", "L2", "EP", "EF"}
        For j = 0 To 3 + np + nl
            For i = 1 To n
                Dim x As New System.Windows.Forms.TextBox
                x.Name = j & i
                x.Tag = j & i
                x.Top = 10 + i * 30
                If j >= 2 Then
                    x.Width = 20
                    x.Left = (70 * j) + 20
                Else
                    x.Width = 50
                    x.Left = (70 * j) + 10
                End If
                principal.Controls.Add(x)
            Next
        Next
        ene = n
        ReDim final(ene - 1)
    End Sub
    Public Sub promedio(ByVal principal As System.Windows.Forms.Form)
        Dim x As New System.Windows.Forms.Control
        Dim i As Integer
        Dim arrayt(ene - 1) As Double
        Dim arrayl(ene - 1) As Double
        Dim arrayp(ene - 1) As Double
        Dim arrayf(ene - 1) As Double
        For Each x In principal.Controls
            For i = 1 To ene
                If x.Name = "2" & i Then
                    arrayt(i - 1) = x.Text
                End If
            Next
        Next
        For Each x In principal.Controls
            For i = 1 To ene
                If x.Name = "3" & i Then
                    arrayt(i - 1) = arrayt(i - 1) + x.Text
                End If
            Next
        Next
        For Each x In principal.Controls
            For i = 1 To ene
                If x.Name = "4" & i Then
                    arrayl(i - 1) = x.Text
                End If
            Next
        Next
        For Each x In principal.Controls
            For i = 1 To ene
                If x.Name = "5" & i Then
                    arrayl(i - 1) = arrayl(i - 1) + x.Text
                End If
            Next
        Next
        For Each x In principal.Controls
            For i = 1 To ene
                If x.Name = "6" & i Then
                    arrayp(i - 1) = x.Text * 3
                End If
            Next
        Next
        For Each x In principal.Controls
            For i = 1 To ene
                If x.Name = "7" & i Then
                    arrayf(i - 1) = x.Text * 4
                End If
            Next
        Next
        For i = 1 To ene
            final(i - 1) = ((arrayt(i - 1) / 2) + (arrayl(i - 1) / 2) + arrayp(i - 1) + arrayf(i - 1)) / 9
        Next
    End Sub
    Public Function info()
        Dim res As String
        res = "Notas:" & Chr(13)
        Dim i As Integer
        For i = 1 To ene
            res = res & "Alumno " & i & ": " & final(i - 1) & Chr(13)
        Next
        Return res
    End Function
End Class
--------------------------------------------------------------------------------------------------------------------------
Luego hacer click en guardar todo y despues en generar.
Luego creas un proyecto común y silvestre.
Añades la referencia a la dll.
Solamente añades 2 botones, te recomiendo que los pongas muy a la derecha.
Los botones tienen los nombres que estan por defecto, osea Button1 y Button2
--------------------------------------------------------------------------------------------------------------------------

Public Class Form1
    Dim obj As New De_ele_ele.Class1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        obj.inject(Me, InputBox("Ingrese la cantidad de alumnos"), InputBox("Ingrese la cantidad de practicas:"), InputBox("Ingrese la cantidad de practicas de laboratorio:"))
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        obj.promedio(Me)
        MsgBox(obj.info(), MsgBoxStyle.Exclamation, "Resultados Finales")
    End Sub
End Class
--------------------------------------------------------------------------------------------------------------------------
El archivo pueden descargarlo deaqui
Parcial-Visual.Net
Y eso es todo, espero sus comentarios!
Mayteelson Guerra