В матрице подсчитать количество значений всех чисел, которые кратны 3 - VB
Формулировка задачи:
в матрице размера 4х4 подсчитать количество и вывести значения всех чисел, величина которых кратна 3 - Такая вот задача..Помогите кто может)Нужен только исходный код
Решение задачи: «В матрице подсчитать количество значений всех чисел, которые кратны 3»
textual
Листинг программы
dim k as Integer For p=1 to 4 For o=1 to 4 If int(a(p,o)/3)*3=a(p,o) then List1.AddItem a(p,o) k=k+1 next o next p List1.AddItem List1.AddItem "колич. --- " & k