Ответы на все вопросы

FAQ / Программирование / Visual Basic

Помогите решить задачу

Вопрос:

Помогите решить задачу. Все элементы, кратные К, матрицы A(n,m) расположить в начале одномерного массива В.

Ответ:

Private Sub Form_Load()
k = 3: n = 10: m = 10
Dim A(10, 10)
REM Максимальное число элементов кратных k (при k=1)
REM равно n*m
Dim B(100)
REM присваиваем значения массиву
REM они будут такими
REM 001 002 003 004 005 006 007 008 009 010
REM 002 003 004 005 006 007 008 009 010 011
REM ...
REM 011 012 013 014 015 016 017 018 019 020
For i = 1 To n
For j = 1 To m
A(i, j) = i + j
Next j
Next i
REM num -- кочичество элементов, кратных k
num = 0
REM пробегаем поочереди все строчки матрицы
For i = 1 To n
For j = 1 To m
REM проверяем делимость на k
If A(i, j) Mod k <> 0 Then GoTo Label
REM если делится -- увеличивем num на единицу
num = num + 1
REM вносим в массив B новый элемент
B(num) = A(i, j)
Label:
Next j
Next i
REM выводим матрицу B в текстбокс Text1
For i = 1 To num
Text1.Text = Text1.Text + Str(B(i)) + ","
Next i
End Sub

Версия для печати Найти похожие статьи
Поиск по сайту

Архив

ВсПнВтСрЧтПтСб
1234567
891011121314
15161718192021
22232425262728
293012345
6789101112
13141516171819
20212223242526
272829303112



Мы рекомендуем