Arrays 为下一个循环问题嵌套。使用结果的每个成员绘制图表

我有两个

用于下一个
循环，用于将结果发送到
图表
。然而，系列线是混乱的

我理解这个问题，但找不到解决办法。
图表
显示了所有点，但我需要将第一个迭代点匹配在一起，第二个迭代点匹配在一起……等等

代码如下：

Dim i as integer
Dim n as integer
Dim speed as decimal
Dim horsepower as decimal

For i=1 to 30 Step 2
    For n=1 to 20 Step 1

        Dim power as label=CType(GroupBox1.Controls("Label"&n),Label)

        Dim txt as textbox=CType(Tabcontrolpanel1.Controls("TextBox"&i),Textbox)

        horsepower=Val(power.text)*3.14

        speed=Val(txt.Text)*3*5

        ChartControl1.Series("Series 1").Points.Add(New Seriespoint(horsepower, speed)

    Next

Next

我需要画（x，y）（马力1，速度1），（马力2，速度2）…等等。不是（马力1，速度2），（马力1，速度3）
它们不能全部匹配，因为您有15速文本框和20马力标签。但是如果你想用前15个循环，你必须用一个循环

For i=1 to 15

   Dim power as label=CType(GroupBox1.Controls("Label"&i),Label)
   Dim txt as textbox=CType(Tabcontrolpanel1.Controls("TextBox"&(i*2-1)),Textbox)

   horsepower=Val(power.text)*3.14
   speed=Val(txt.Text)*3*5

   ChartControl1.Series("Series 1").Points.Add(New Seriespoint(horsepower, speed)

Next

如果有不同的起始索引，则必须将其保存在变量中

' First matching index
Dim labelIndex As Integer = 1
Dim textboxIndex As Integer = 1

For i=1 to 15

   Dim power as label=CType(GroupBox1.Controls("Label"&labelIndex),Label)
   Dim txt as textbox=CType(Tabcontrolpanel1.Controls("TextBox"&textboxIndex),Textbox)

   horsepower=Val(power.text)*3.14
   speed=Val(txt.Text)*3*5

   ChartControl1.Series("Series 1").Points.Add(New Seriespoint(horsepower, speed)

   ' Go to the next matching index
   labelIndex += 1
   textboxIndex += 2
Next

你的问题不清楚。。。例如，“第一次迭代点”是什么意思；我需要画（1,1），（2,2）这样的图表，而不是（1,2）（1,3）（1,4）它们不可能全部匹配，因为你有15速文本框和20马力标签。但是当你有不同的循环大小时，你怎么做呢…如果它是“正方形”，那么你只需要一个循环…如果标签开始标签90等等，我将要做什么，我不能用1来代替loop@Emrah我在答案上加了另一部分。您必须将labelIndex初始化为90。如果你的标签到处都是，那么你需要找到另一种方法来匹配它们。将它们放在数据网格的同一面板或行中，或将它们放在标记中。。。事实上，您有90个名为label{x}的标签不是一个好主意。非常感谢您，我会尝试一下。您能看看下面的答案并帮助我吗？