Imports System
Public Module Module1
Public Sub Main()
Dim Candidates(4) as String
Dim PlaceN(4) as String
Dim ns as Decimal
Dim nc as Decimal
Dim Votes as Decimal
Dim Place(4) as Decimal
Dim CandtC(4) as Decimal
Dim c as Decimal = 1
Dim p as Decimal = 1
Dim x as Decimal
Do
If CandtC(c) = ns Then
CandtC(c) = Place(p)
Candidates(c) = PlaceN(p)
If CandtC(c) = Place(p) Then
c = c + 1
End If
If c = 2 Then
x = 2
ns = ns - 1
Loop Until ns = 0
End Sub
End Module