Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim nNames as string

        dim nScores as integer

        dim nSum as integer

        dim nMax as integer

        dim nMin as integer

        for i = 1 to 10

        nScores = console.readline()

        next

    do while (nScores > 100 or nScores < 25)

        console.writeline("errors")

    loop

    do while 

    End Sub

End Module

​