Mostrar alumnos ordenados por mayor puntaje de promedio Codigo Fuente en Visual Basic

Problema
Hacer un programa o algoritmo que permita mostrar alumnos ordenados por mayor puntaje de promedio.

Solución

• Entrada: Juan  12, lucia 10, alex 16,Sandra 14

• Salida: alex16,Sandra 14,juan 12,lucia 10

Codigo Fuente en Visual Basic

Public Class Form1
    Dim w As Integer = 0
    Dim c As Integer = 0
    Dim cad As String = ""
    Dim t, p, lon, tem As Integer
    Dim n, aux As String
    Dim Nom() As String
    Dim Prom() As Integer
    Public Sub inicializar(ByVal tam As Integer)
        ReDim Nom(tam - 1)
        For i As Integer = 0 To (tam - 1)
            Nom(i) = ""
        Next i
        ReDim Prom(tam - 1)
        For j As Integer = 0 To (tam - 1)
            Prom(j) = 0
        Next j
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        lon = TextBox1.Text
        n = TextBox2.Text
        p = TextBox3.Text
        If (c <> lon) Then
            Nom(c) = n
            Prom(c) = p
            c = c + 1
        Else
            While (w <> (lon - 1))
                w = 0
                For k As Integer = 0 To (lon - 2)
                    If (Prom(k) >= Prom(k + 1)) Then
                        w = w + 1
                    Else
                        tem = Prom(k)
                        Prom(k) = Prom(k + 1)
                        Prom(k + 1) = tem
                        aux = Nom(k)
                        Nom(k) = Nom(k + 1)
                        Nom(k + 1) = aux
                    End If
                Next k
            End While
            For x As Integer = 0 To (lon - 1)
                cad = cad + "Nombre:  " + Nom(x) + "  Nota: " +
                    Trim(Prom(x)) & vbCrLf
            Next x
            TextBox4.Text = cad
        End If
    End Sub
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles TextBox1.TextChanged
        t = TextBox1.Text
        inicializar(t)
    End Sub
End Class

Descargar Proyecto Visual Basic