| Вопрос: VB .NET (Оптимизация, бесконечно вложенный цикл) | Добавлено: 16.12.12 21:06 |
Автор вопроса:  Артем
|
|
Есть код в нем куча вложенных циклов, надо это дело оптимизировать.
Кусок кода без оптимизации: For i6 = 1 To str.Length
strn = Mid(str, i1, 1) strn = strn & Mid(str, i2, 1) strn = strn & Mid(str, i3, 1) strn = strn & Mid(str, i4, 1) strn = strn & Mid(str, i5, 1) strn = strn & Mid(str, i6, 1) ListBox1.Items.Add(strn) updateform() If str.Length = 6 Then GoTo nextstr6 For i7 = 1 To str.Length strn = Mid(str, i1, 1) strn = strn & Mid(str, i2, 1) strn = strn & Mid(str, i3, 1) strn = strn & Mid(str, i4, 1) strn = strn & Mid(str, i5, 1) strn = strn & Mid(str, i6, 1) strn = strn & Mid(str, i7, 1) ListBox1.Items.Add(strn) updateform() If str.Length = 6 Then GoTo nextstr7 For i8 = 1 To str.Length strn = Mid(str, i1, 1) strn = strn & Mid(str, i2, 1) strn = strn & Mid(str, i3, 1) strn = strn & Mid(str, i4, 1) strn = strn & Mid(str, i5, 1) strn = strn & Mid(str, i6, 1) strn = strn & Mid(str, i7, 1) strn = strn & Mid(str, i8, 1) ListBox1.Items.Add(strn) updateform() Next nextstr7: Next nextstr6: Next Спасибо. |
| Ответы | Всего ответов: 0 |
Страница: