VB Помогите вывести названия блюд в элемент ListBox

[talisman-ydachi]

По условию задачи в списке ComboBox есть четыре названия блюд, которые оценивают студенты...При помощи двухмерного массива в виде таблицы обновляются данные в списке...Оценка (нравиться/не нравиться

С массивом проблем не возникло...а вот вывести названия блюд в столбик я не могу понять как...Постоянно выводит выделенный элемент во все четыре строки...пробовал с индексом играться...всё-равно ничего...

Вот мой код:

Public Class FoodSurveryForm

'объявление двухмерного массива из четырех строк и двух столбцов
Dim votes As Integer(,) = New Integer(0 To 3, 0 To 1) {}

' handles Food Survey Form's Load event
Private Sub FoodSurveryForm_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load




foodsComboBox.SelectedIndex = 0 ' select first food in list
End Sub ' FoodSurveryForm_Load

Private Sub voteButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles voteButton.Click
'создание переменной для хранения индекса выделенного пункта
Dim index As Integer = 0

index = foodsComboBox.SelectedIndex

If LikeRadioButton.Checked = True Then
votes(index, 0) += 1
Else
votes(index, 1) += 1
End If

DisplayVotes()
End Sub

Sub DisplayVotes()
Dim stolbets As Integer = 0

Dim spisok As String

resultsListBox.Items.Clear()

resultsListBox.Items.Add(ControlCha rs.Tab & "Menu Items" & ControlChars.Tab & _
"Like" & "Dislike")


For stroka = 0 To votes.GetUpperBound(0)

spisok = foodsComboBox.Text
resultsListBox.Items.Add(spisok & _
" " & votes(stroka, 0) & " " & votes(stroka, 1))

Next
End Sub
End Class ' FoodSurveryForm

[talisman-ydachi]

или мне нужно обїявить еще один массив типа стринг для хранения результатов КомбоБокс?....Неужели нет более логичного варианта, которій возвращает значения КомбоБокс по порядку?...

[talisman-ydachi]

С помощью еще одного массива у меня все получилось...

Public Class FoodSurveryForm

'объявление двухмерного массива из четырех строк и двух столбцов
Dim votes As Integer(,) = New Integer(0 To 3, 0 To 1) {}
Dim nazvanija As String() = {"Сырная пицца", "Гамбургер", _
"Рыбные чипсы", "Отбивная"}
' handles Food Survey Form's Load event
Private Sub FoodSurveryForm_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load




foodsComboBox.SelectedIndex = 0 ' select first food in list
End Sub ' FoodSurveryForm_Load

Private Sub voteButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles voteButton.Click
'создание переменной для хранения индекса выделенного пункта
Dim index As Integer = 0

index = foodsComboBox.SelectedIndex

If LikeRadioButton.Checked = True Then
votes(index, 0) += 1
Else
votes(index, 1) += 1
End If

DisplayVotes()
End Sub

Sub DisplayVotes()
Dim stolbets As Integer = 0
Dim result As String = ""


resultsListBox.Items.Clear()

resultsListBox.Items.Add(ControlCha rs.Tab & "Блюдо" & ControlChars.Tab & _
"Вкусно" & ControlChars.Tab & "Не вкусно")


For stroka = 0 To votes.GetUpperBound(0)
resultsListBox.Items.Add(nazvanija( stroka) & ControlChars.Tab _
& votes(stroka, 0) & ControlChars.Tab & votes(stroka, 1))


Next




End Sub
End Class ' FoodSurveryForm


Вот только после последнего названия "отбивная" почему-то не проставляется пробел а цифра с ответом "прилипает" к названию...

При этом все остальные ответы отображаются корректно...
При добавлении еще одного ControlChars.Tab последняя цифра отображается корректно, но первые три уходят фзакат...Что это может быть? Подскажите опытные гуру...