Работа с массивами одномерными и двумерными - VB
Формулировка задачи:
Не помню ни черта а сделать надо, если кто поможет буду благодарен...
вот две задачи
1. Даны целые числа a,n,x, ..., x(n)-n внизу (n>0). определите, каким по счету идет в последовательности x(1), ... , x(n) член, равный а. Если такого члена нет, то ответом должно быть число 0.
2. Дана целочисленная квадратная матрица А(10,10). Запишите все элементы жэтой матрицы, кратные 5, в одномерный целочисленный массив.
Решение задачи: «Работа с массивами одномерными и двумерными»
textual
Листинг программы
Private Sub Command1_Click() Dim a(1 To 10, 1 To 10) As Integer Dim b() As Integer ReDim b(0) For i = 1 To 10 Print For j = 1 To 10 a(i, j) = Int(Rnd * 10) + 1 If a(i, j) Mod 5 = 0 Then ReDim Preserve b(UBound(b) + 1): b(UBound(b) - 1) = a(i, j) Print a(i, j); Next Next Print For i = 0 To UBound(b) - 1 Print b(i); Next End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д