Работ в текущем разделе: [ 3034 ] Дисциплина: Информационные технологии На уровень вверх
Тип: Контрольная работа |
Цена: 450 р. |
Страниц: 2 |
Формат: doc |
Год: 2012 |
Купить
Данная работа была успешно защищена, продается в таком виде, как есть. Изменения, а также индивидуальное исполнение возможны за дополнительную плату. Если качество купленной готовой работы с сайта не соответствует заявленному, мы ВЕРНЕМ ВАМ ДЕНЬГИ или ОБМЕНЯЕМ на другую готовую работу. Данная гарантия действует в течение 48 часов после покупки работы. Вы можете получить её по электронной почте (отправляется сразу после подтверждения оплаты в течение 3-х часов, в нерабочее время возможно увеличение интервала). Для получения нажмите кнопку «купить» выше.
Также работу можно получить в московском офисе, либо курьером в любом крупном городе России (стоимость услуги 600 руб.). Желаете просмотреть часть работы? Обращайтесь: ICQ 15555116, Skype dip-master, E-mail info @ dipmaster-shop.ru. Звоните: (495) 972-80-33, (495) 972-81-08, (495) 518-51-63, (495) 971-07-29, (495) 518-52-11, (495) 971-76-12, (495) 979-43-28.
Содержание
|
Задание
Двумерный диапазон начинающийся с ячейки С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
|
Список литературы
|
|
Примечания:
|
Примечаний нет.
|
|