VBNet - Форум - объекты и массивы

Вопрос: объекты и массивы Добавлено: 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-сайт: okazani.ru Профиль \| Цитата \| #1	Добавлено: 04.06.09 00:31
	400 рублей Ответить

Номер ответа: 2 Автор ответа: $@ny@PG ICQ: 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-сайт: sharpc.livejournal.com Профиль \| Цитата \| #6	Добавлено: 07.06.09 22:37
	Ну и кем смогут управлять такие менеджеры, если им сложно даже компу объяснить, как сделать элементарную задачу? Ответить

Номер ответа: 7 Автор ответа: Arvitaly ICQ: 301746136 Вопросов: 28 Ответов: 549	Web-сайт: okazani.ru Профиль \| Цитата \| #7	Добавлено: 07.06.09 23:06
	В Москве около 55 тыс. официально зарегистрированных безработных - Лужков 4 июня. ИНТЕРФАКС-МОСКВА - Численность официально зарегистрированных безработных в Москве с начала 2009 года возросла на 31,7 тыс. человек и составила 54,6 тыс. человек, сообщил в среду мэр столицы Юрий Лужков на встрече с депутатами Мосгордумы. "Безработица в Москве с начала года возросла с 0,4% до 0,83% на конец мая. В то же время потребность в вакансиях в пять раз превышает количество безработных", - отметил мэр. Ю.Лужков подчеркнул, что до сих пор уровень безработицы в столице является самым низким среди регионов России. "Но эта ситуация никак не успокаивает городское правительство", - добавил он. И это официальные данные, а по неофициальным их в десятки раз больше Ответить

Номер ответа: 8 Автор ответа: Ra$cal ICQ: 8068014 Вопросов: 18 Ответов: 817	Web-сайт: www.rascalspb.narod.ru Профиль \| Цитата \| #8	Добавлено: 08.06.09 01:46
	Если считать, что 3 и 5 кратно нулю сильно Ответить

Страница: 1 |