| Вопрос: объекты и массивы | Добавлено: 04.06.09 00:12 |
Автор вопроса:  NeVasha
|
|
Помогите плиз,очень надо
1) Назовите именем «Задание на массивы» новый лист рабочей книги. 2) Заполните ячейки A1:B7 массивом случайных целых чисел в интервале от -15 до 15 Для генерации случайных чисел в некотором диапазоне от A до B можно использовать формулу Int((B - A + 1) * Rnd + A) 3) Раскрасьте числа, кратные 3 синим цветом (код 5), а кратные 5 красным цветом (код 3). 4) Подсчитайте количество ячеек кратных 3 и 5. Сохраните результат расчета в ячейках A8 и A9, предварительно их подписав. |
| Ответы | Всего ответов: 8 |
|
Номер ответа: 1 Автор ответа:  Arvitaly ICQ: 301746136 Вопросов: 28 Ответов: 549 |
Web-сайт: Профиль | | #1 | Добавлено: 04.06.09 00:31 |
| 400 рублей | ||
|
Номер ответа: 2 Автор ответа: $@ny@PGICQ: 468469477 Вопросов: 71 Ответов: 196 |
Профиль | | #2 | Добавлено: 04.06.09 08:14 |
Кто предложит подороже? 
|
||
|
Номер ответа: 3 Автор ответа: AngryBadgerВопросов: 33 Ответов: 245 |
Профиль | | #3 | Добавлено: 04.06.09 13:43 |
|
Чем меньше специалистов вырастет, тем выше будет Ваша зарплата в будущем.
Option Explicit
Option Base 1 Sub Array_3and5() Dim MyRange As Range Dim MyArray() As Integer Dim A As Integer, B As Integer, i As Integer, k As Integer, d As Integer, iRed As Integer, iBlue As Integer Sheets("Задание на массивы"  .Select
Set MyRange = Range(Cells(1, 1), Cells(7, 2)) ReDim MyArray(MyRange.Cells.Count) A = 15 B = -15 MyRange.Font.ColorIndex = 0 For d = 1 To UBound(MyArray) MyArray(d) = Int((A - B + 1) * Rnd + B) Next d d = 0 For i = 1 To MyRange.Columns.Count For k = 1 To MyRange.Rows.Count d = d + 1 MyRange.Cells(k, i).Value = MyArray(d) If MyRange.Cells(k, i).Value / 3 = MyRange.Cells(k, i).Value \ 3 Then MyRange.Cells(k, i).Font.ColorIndex = 5 iRed = iRed + 1 ElseIf MyRange.Cells(k, i).Value / 5 = MyRange.Cells(k, i).Value \ 5 Then MyRange.Cells(k, i).Font.ColorIndex = 3 iBlue = iBlue + 1 End If Next k Next i Cells(8, 1).Value = "Кратно трем: " & iRed Cells(9, 1).Value = "Кратно пяти: " & iBlue End Sub |
||
|
Номер ответа: 4 Автор ответа: AngryBadgerВопросов: 33 Ответов: 245 |
Профиль | | #4 | Добавлено: 04.06.09 13:53 |
|
Вернее, наверное так (Если считать, что 3 и 5 кратно нулю):
Option Explicit
Option Base 1 Sub Array_3and5() Dim MyRange As Range Dim MyArray() As Integer Dim A As Integer, B As Integer, i As Integer, k As Integer, d As Integer, iRed As Integer, iBlue As Integer, iAll As Integer Sheets("Задание на массивы" .Select
Set MyRange = Range(Cells(1, 1), Cells(7, 2)) ReDim MyArray(MyRange.Cells.Count) A = 15 B = -15 MyRange.Font.ColorIndex = 0 For d = 1 To UBound(MyArray) MyArray(d) = Int((A - B + 1) * Rnd + B) Next d d = 0 For i = 1 To MyRange.Columns.Count For k = 1 To MyRange.Rows.Count d = d + 1 MyRange.Cells(k, i).Value = MyArray(d) If MyRange.Cells(k, i).Value / 3 = MyRange.Cells(k, i).Value \ 3 And _ MyRange.Cells(k, i).Value / 5 = MyRange.Cells(k, i).Value \ 5 Then MyRange.Cells(k, i).Font.ColorIndex = 50 iRed = iRed + 1 iBlue = iBlue + 1 iAll = iAll + 1 ElseIf MyRange.Cells(k, i).Value / 3 = MyRange.Cells(k, i).Value \ 3 Then MyRange.Cells(k, i).Font.ColorIndex = 5 iRed = iRed + 1 ElseIf MyRange.Cells(k, i).Value / 5 = MyRange.Cells(k, i).Value \ 5 Then MyRange.Cells(k, i).Font.ColorIndex = 3 iBlue = iBlue + 1 End If Next k Next i Cells(8, 1).Value = "Кратно трем: " & iRed Cells(9, 1).Value = "Кратно пяти: " & iBlue Cells(10, 1).Value = "Кратно трем и пяти: " & iAll End Sub |
||
|
Номер ответа: 5 Автор ответа:  NeVasha Вопросов: 2 Ответов: 3 |
Профиль | | #5 | Добавлено: 07.06.09 19:28 |
| АААА...спасибо огромное))) и конкуренции можете не опасаться, это неадекватные преподаватели задают ТАКОЕ бедным студентам на факультете менеджмента)))http://www.vbnet.ru/forum/images/96.gif | ||
|
Номер ответа: 6 Автор ответа: Sharp Лидер форума ICQ: 216865379 Вопросов: 106 Ответов: 9979 |
Web-сайт: Профиль | | #6 | Добавлено: 07.06.09 22:37 |
| Ну и кем смогут управлять такие менеджеры, если им сложно даже компу объяснить, как сделать элементарную задачу? | ||
|
Номер ответа: 7 Автор ответа: ArvitalyICQ: 301746136 Вопросов: 28 Ответов: 549 |
Web-сайт: Профиль | | #7 | Добавлено: 07.06.09 23:06 |
|
В Москве около 55 тыс. официально зарегистрированных безработных - Лужков 4 июня. ИНТЕРФАКС-МОСКВА - Численность официально зарегистрированных безработных в Москве с начала 2009 года возросла на 31,7 тыс. человек и составила 54,6 тыс. человек, сообщил в среду мэр столицы Юрий Лужков на встрече с депутатами Мосгордумы. "Безработица в Москве с начала года возросла с 0,4% до 0,83% на конец мая. В то же время потребность в вакансиях в пять раз превышает количество безработных", - отметил мэр. Ю.Лужков подчеркнул, что до сих пор уровень безработицы в столице является самым низким среди регионов России. "Но эта ситуация никак не успокаивает городское правительство", - добавил он.
И это официальные данные, а по неофициальным их в десятки раз больше |
||
|
Номер ответа: 8 Автор ответа: Ra$calICQ: 8068014 Вопросов: 18 Ответов: 817 |
Web-сайт: Профиль | | #8 | Добавлено: 08.06.09 01:46 |
|
Если считать, что 3 и 5 кратно нулю
сильно |
||
Страница: 1 |