Массив. Нечетные строки - VB

Узнай цену своей работы

Формулировка задачи:

Всем привет. Подскажите, пожалуйста, глупому. Есть условие: -из файла разместить варианты ключей в массиве 30 на 30 -в каждой четной строке, начиная с 20, выбираются три нечетных номера чисел(1,3,5)

-в каждой нечетной строке, начиная с 21, выбираются 3 четных номера чисел (2,4,6)

и т.д. Я застрял на третьем условии

"в каждой нечетной строке, начиная с 21..."

Не могу совместить второе и третье условие. Выбираются либо четные либо нечетные с каждой строки, по очереди не получается. Подскажите кто знает, пожалуйста.
Если из этого куска что то не понятно, могу выложить весь код с программой.

Решение задачи: «Массив. Нечетные строки»

textual
Листинг программы
    For i = 1 To 19
        Line Input #Filekey, txtKey
    Next i
    For i = 0 To 10
        Line Input #Filekey, txtLine
        S = Split(txtLine)
        If i Mod 2 = 0 Then 'чётные строки
            For j = 1 To 5 Step 2 'пробегаем по нечётным столбцам начиная с 1-го
                txtKey = txtKey & S(j)
            Next j
        Else   ' нечётные строки
            For j = 2 To 6 Step 2 'пробегаем по чётным столбцам начиная со 2-го'
                 txtKey = txtKey & S(j)
            Next j
        End If
    Next i

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

6   голосов , оценка 4 из 5
Похожие ответы