Visual Basic - 我编写了一些代码来循环程序 45 次，但它没有循环

问：

该程序应该获得 45 个输入和输出，无论资金是损失、获得还是收支平衡。程序只需要一个输入，然后就结束了。它不是循环的，我不确定该怎么做，我不是很擅长代码，这是为了考试，如果它非常基础并且我不明白，很抱歉

这是代码

Sub Main()

    Dim discount As Integer = 0
    Dim freetickets As Integer = 0
    Dim estimatedcost As Integer = 0
    Dim totalstudents As Integer = 0
    Dim coachcost As Integer = 550
    Dim entryticket As Integer = 30
    Dim name(44) As String
    Dim paidstatus(44) As Boolean
    Dim studentspaid As Integer = 0
    Dim totalcost As Integer = 0
    Dim collectedcost As Integer = 0
    Dim finalcost As Integer = 0

    Console.WriteLine("Enter Student Name")
    name(44) = Console.ReadLine()
    Console.WriteLine("has the student paid? (true/false)")
    paidstatus(44) = Convert.ToBoolean(Console.ReadLine())

    If paidstatus(44) = True Then
        studentspaid = studentspaid + 1
        totalstudents = totalstudents + 1

    ElseIf paidstatus(44) = False Then
        totalstudents = totalstudents + 1
    End If

    totalcost = (totalstudents * 30) + (550 / totalstudents)

    If totalstudents = 45 Then



        If studentspaid = 10 Then
            freetickets = freetickets + 1
        End If


        If studentspaid = 20 Then
            freetickets = freetickets + 1
        End If



        If studentspaid = 30 Then
            freetickets = freetickets + 1
        End If


        If studentspaid = 40 Then
            freetickets = freetickets + 1
        End If



        collectedcost = (studentspaid * 30) + (550 / studentspaid)
        discount = (freetickets * 30) - (550 / studentspaid)
        finalcost = totalcost - collectedcost - discount

        If finalcost > 0 Then
            Console.WriteLine("loss of")
            Console.WriteLine(-finalcost)
        End If

        If finalcost = 0 Then
            Console.WriteLine("broken even")
        End If

        If finalcost < 0 Then
            Console.WriteLine("profit of")
            Console.WriteLine(finalcost)
        End If

    End If

End Sub