Can For Loop做的工作？

我有一个控件数组文本框和一个包含数字（升序）通过输入框的列表框。我需要选择最低的数字，并将其放在我的第一个控制文本框中，然后将处理后的数字放到我的文本框的每个第二个控制数组中。Can For Loop做的工作？

因此，List1.List（0）应放置在文本1（0）的.text和List1.List（1）应该被放置在文本1（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，因为它是所需的使用程序（尽管它很旧，许多程序都比这更好）

来源

2015-07-18 nicy12

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

J不是必需的。

来源

2015-07-19 12:53:54 Stavm

这只会解决我自己生成的情况。我真正的问题是List1.List（0）应该放在Text1（0）.text中并且List1.List（1）应该放在Text1（2）.text中，然后List.List（2）应该放在Text1 （4）等等，直到Listbox中的最后一个项目 – nicy12

我不太了解你想要什么，但我会去你的下面的注释

我真正的问题是List1.List（0）应放置在文本1（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

来源

2015-07-21 12:09:33 SuperDre

Can For Loop做的工作？

回答

相关问题