Imports System

Public Module Module1

    Public Sub Main()

        dim vector(10),i, cp,cn,cc As integer

    End Sub

End Module