Public Class Form1
    Dim Stu_Score(6) As Integer
    Dim Begin, Last As Integer
    Dim IP$
    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Begin = 1 : Last = 6
        For L As Integer = Begin To Last
            IP$ = InputBox("คนที่" & CStr(L) & "ได้", "ป้อนคะแนน")
            Stu_Score(L) = Val(IP$)
        Next L
    End Sub

    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim DP$
        Begin = 1 : Last = 6
        For L As Integer = Begin To Last
            DP$ = CStr(L) & "" & CStr(Stu_Score(L))
            ListBox1.Items.Add(DP$)
        Next L
    End Sub

    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        MsgBox("นายธนาพล ผลเจริญสุข เลขที่ 10 ชั้น ม.5/7", , "ผู้จัดทำ")
        MsgBox("นายธราเทพ ศาสตราเดชาวัต เลขที่ 11 ชั้น ม.5/7", , "ผู้จัดทำ")
        MsgBox("นายธิติวุฒิ นงค์ยา เลขที่ 12 ชั้น ม.5/7", , "ผู้จัดทำ")
        MsgBox("นายพงค์พิพัฒน์ คันธะสุขี เลขที่ 13 ชั้น ม.5/7", , "ผู้จัดทำ")
        MsgBox("นายภูวนาท คำภา เลขที่ 16 ชั้น ม.5/7", , "ผู้จัดทำ")
        MsgBox("นายศักดิ์สิทธิ์ เสาศิริ เลขที่ 20 ชั้น ม.5/7", , "ผู้จัดทำ")
        Next L
    End Sub
End Class

ขอบคุณครับ