Menghitung jumlah studio yang diperlukan , Bila jumlah pesertanya Di input

Imports System.Console
Module Module1

    Sub Main()
        Dim a, s, p(10), i As Integer
        i = 1
        Write("Jumlah Penonton : ")
        a = ReadLine()
        Do
            If a < 100 Then
                p(i) = a
                s = i
                a = 0
            Else
                a = a - 100
                p(i) = 100
                s = i
            End If
            i = i + 1
        Loop While (a <> 0)
        WriteLine("Studio : " & s)
        WriteLine()
        For j = 1 To s
            WriteLine("Studio " & j & ": " & p(j))
        Next
        ReadKey()

    End Sub

End Module