Другие языки программирования и технологии

Кто соображает в Visual Basic помогите!

Нужно написать код. Задание такое:Дана матрица А(n,n). Нужно найти сумму всех нечетных элементов. (нужно написать программу, которая находила бы сумму всех нечетных элементов матрицы А).
Tima Azhimamatov
Tima Azhimamatov
352
'Данный код работает на всех версиях Visual Basic гарантированно!
'Его можно вставить в любую часть программы (нажатие кнопки, загрузку формы и т. д. )
'Писал специально для незнайки версии Visual Basic в учебном заведении.

Dim x, y As Integer 'Объявление циклов.
Dim a, b As Single 'Ранг матрицы (столбцы и строки) .
a = 1 : b = 1 'Для примера сделаем 2 строки и 2 столбца (2х2), нумерация начинается с 0.
Dim m(a, b), sum As Single 'm - двумерный массив (матрица) и sum - cумма всех не четных чисел матрицы.

'Заполнение массива (матрицы) (можно автоматизировать) .
m(0, 0) = 3
m(0, 1) = 23
m(1, 0) = 2
m(1, 1) = 5

For x = 0 To a 'Цикл столбцов.
For y = 0 To b 'Цикл строк.
'Определение четности или не четности числа (можно использовать стандартную функцию, но в разных версиях она может быть разной) .
If m(x, y) / 2 <> Int(m(x, y) / 2) Then sum = sum + m(x, y) 'Суммирование не четных чисел матрицы.

Next
Next

MsgBox(sum) 'Вывод результатов.
Олег Б
Олег Б
190
Лучший ответ
Олег Б Суммирование можно производить унарными операциями (работает не во всех версиях!): sum += m(x,y)
книжки читать надо а по VB на bysteff.narod.ru точно есть
Андрей Гааг Вот и читал бы книжки, вместо того, что бы делать бесполезные комментарии!
Присвоить ноль переменной для суммы.
Цикл по строкам, внутри цикл по стобцам, и проверять каждый элемент на нечётность, если истинно, то прибавить к переменной для суммы.
Anton Polunin
Anton Polunin
2 776
Tima Azhimamatov а написать можешь? а то я все равно так не пойму.
Андрей Гааг If (A(i, j) / 2 * 2) A(i, j)
А каким образом это будет работать?
На какой версии vb нужно сделать задание?
Сергей Иванов
Сергей Иванов
1 463
Tima Azhimamatov это задание задали на учебе, а какая версия стоит там я не знаю.