- Код: Выделить всё
Dim i, j As Integer
Dim NewItems(7)() As String
NewItems(0) = New String() {2, 3, 5}
NewItems(1) = New String() {1, 4, 6}
NewItems(2) = New String() {1, 4, 7}
NewItems(3) = New String() {2, 3, 8}
NewItems(4) = New String() {1, 6, 7}
NewItems(5) = New String() {2, 5, 8}
NewItems(6) = New String() {3, 5, 8}
NewItems(7) = New String() {4, 6, 7}
For i = 0 To 7
For j = 0 To 6
If Array.IndexOf(NewItems(i), UsedNum(j)) > -1 Then
......
End If
Next
Next
Заранее в событиях я использовал массив использованных цифр(UsedNum). Здесь при нахождении этой цифры в массиве NewItems, нужно удалить все соответсвующие элементы, т.е цифры. Как это организовать я не понял. Как я понял из массива вообще чего либо удалять нельзя, можно лишь добавить если он динамический. Но если создать текстовую перемнную, и записать все цифры в одну строку, и разбить на массив? Только вот не знаю, как пременную строки можно разделить на массив..
