Лабораторная работа №2 по информатике-2010

ID работы - 759207
информационные технологии (контрольная работа)
количество страниц - 2
год сдачи - 2010

---

СОДЕРЖАНИЕ:

---

Задание
Двумерный диапазон начинающийся с ячейки С4 заполнен целыми числами. Сформировать в строке, расположенной через одну, после последней, одномерный массив, каждый элемент которого равен количеству элементов соответствующего столбца меньше 10.

---

ВВЕДЕНИЕ:

---

Dim M As Integer, N As Integer

Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, Count As Integer
M = 0
N = 0
Rem пока не встретилась пустая ячейка в строке 4 - наращиваем N и находим количество столбцов
While Cells(4, N + 3) <> ""
N = N + 1
Wend
Rem пока не встретилась пустая ячейка в столбце 3 ("C") - наращиваем M и находим количество строк
While Cells(M + 4, 3) <> ""
M = M + 1
Wend

---

СПИСОК ЛИТЕРТУРЫ:

---

Цена: 450.00руб.