Imports System

​

Public Module Module1

​

    Public Sub Main()

        dim nCostS as integer

        dim nCountS as integer

        dim nCost as decimal

        dim nCostTotal as integer

        dim x as integer

        dim r as integer

        console.writeline("input the number of student")

        nCountS = console.readline()

        if nCOuntS > 45 or nCountS < 1 then

            console.writeline("the number of student is incorrect")

        else

            console.writeline("the number is correct")

        end if

​

        if nCountS > 10 then

            x = nCountS mod 10

            r =(nCountS - x) / 10

            nCostS =(nCountS - r) * 30

        else

            nCostS = nCountS * 30

        end if

​

        nCostTotal = nCostS + 550

        nCost = nCostTotal / nCountS

        console.writeline("cost of each student:{0}", nCost)

        dim sName as string

        dim sT as string

​

        console.writeline("input the name of student")

        sName = console.readline()

        for i = 1 to sName - 1

            console.writeline（"student's name:[0]", sName）

            console.writeline("did he/she have paid(input yes or no)")

            sT = console.readline()

        console.writeline("student name:[0]", sName &"did he/she pay:[0]",sT )

        next

    End Sub

End Module

​