Задача: Введите результаты голосования за 4х кандидатов. Определите, какой из кандидатов занял 1ое место

[Xydojnik]

Сама задача:
Введите результаты голосования за 4х кандидатов. Определите, какой из кандидатов занял 1ое место.

Пример выполнения :

Public Sub ПроцентПоВкладу()
DimГода As Integer
Dim Капитал As Double
Dim i As Integer
Года = InputBox ("Введите число лет, на которые помещается вклад: ")
Капитал = InputBox ("Введите сумму вклада: ")
For i = 1 to Года
Капитал = Капитал*1,075
Next i
MsgBox("3a " & Года & " лет вы получите по вкладу " & Format(Капитал, "0.00") & " рублей")
End Sub

[Aleksandr H.]

К чему этот бред?