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

但是这段代码总是给我的文本框提供列表框中的最后一个数字。经过几个小时的互联网研究，我发现为什么这段代码不起作用。但我仍然无法找到解决原始问题的方法。

我应该使用什么技术？使用For循环不是正确的方法吗？我花了太多时间思考和寻找答案。有人请帮忙。我正在使用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）上，依此类推，直到列表框中的最后一项

我知道这不是最好的解决方案，但它会做你想要的，至少从我的评论中理解。我们走了：

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

可以循环做功吗？

2 个答案: