Может ли цикл работать?

Question

У меня есть массив управления текстовыми полями и список, который содержит числа (по возрастанию) через поле ввода. Мне нужно выбрать самое низкое число и поместить его в свой первый текстовый блок управления, а затем на остальные контрольные массивы моего текстового поля.

Таким образом, List1.List (0) должен быть помещен в Text1 (0) .text и List1.List (1) должен быть помещен в Text1 (2) .text

Я не могу себе представить, как чтобы закодировать его, поэтому я попытался создать аналогичный сценарий, в котором каждый номер в списке будет помещен в каждое текстовое поле. Вот мой код для моего созданного сценария:

For i = 0 to list1.listcount - 1 
For j = 0 to text1.count -1 
text1(j).text = list1.list(i) 
next j 
next i 

Но этот код всегда дает своему Textboxes последний номер в моем ListBox. После нескольких часов исследований в Интернете я узнал, почему этот код не работает. Но все же я не могу найти никакого отношения к тому, как ответить на мою оригинальную проблему.

Какую технику следует использовать? Не использует ли метод For Loop правильный путь? Я тратил слишком много времени на размышления и поиск ответа. Кто-то, пожалуйста, помогите. Я использую VB6, потому что это требуется prgoram использовать (даже если это старый и многие программы лучше, чем это)

Answer 1

Dim i As Integer 
For i = 0 To List1.ListCount - 1 
    Text1(i).Text = List1.List(i) 
Next i 

J не требуется.

Answer 2

Я не совсем понимая, что вы хотите, но я пойду на ваш следующий комментарий

Моя реальная проблема List1.List (0) должен быть помещен в Text1 (0) .text и List1.List (1) должен быть помещен в Text1 (2) .text затем List.List (2) должны быть размещены на Text1 (4) и так далее до последнего элемента в Listbox

Я не знаю, что это не самое приятное решение, но оно будет делать то, что вы хотите, по крайней мере, из того, что я понимаю из вашего комментария. здесь мы идем:

Dim i As Integer 
Dim j As Integer 
j = 0 
For i = 0 To List1.ListCount - 1 
    Text1(j).Text = List1.List(i) 
    if j = 0 then j = j + 1 
    j = j + 2 
Next i