

图1为一组循环数,图2为一个数组,希望每次按图1循环,但循环结果中不能有图2数组中的数值。
Dim k = New Integer(5) {50, 20, 10, 5, 2, 1}
Dim p = New Integer(5) {1050, 1080, 1100, 1250, 1355, 1189}
For j As Integer = 0 To k.Length - 1
For i As Integer = 0 To p.Length - 1
For n As Integer = 1000 To 1200 Step k(j)
If p(i) = n Then Continue For
Debug.Print(n)
Next
Next
Next
End Sub
这个是按数组中每个数值循环,多循环了很多次。