Отправляет email-рассылки с помощью сервиса Sendsay

Программирование на Visual Basic, VB .NET и VBA

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Виртуальный офис - дома" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Ноябрь 2009   →
 1
 2
 3
 4
 5
05.11.2009
05:54:55
08:40:19
 6
06.11.2009
05:29:41
21:13:56
 7
 8
 9
09.11.2009
08:37:26
12:09:52
10
10.11.2009
08:25:28
09:54:49
11
11.11.2009
09:40:16
20:52:43
12
13
14
15
16
17
18
19
19.11.2009
06:14:21
08:30:24
20
20.11.2009
07:31:00
09:03:16
21
21.11.2009
09:31:19
09:36:10
22
23
23.11.2009
07:53:34
12:42:35
24
24.11.2009
08:30:32
10:18:05
25
25.11.2009
08:31:14
10:39:13
26
26.11.2009
05:54:04
08:31:38
27
28
29
30
30.11.2009
06:49:25
09:30:24
Автор
BiT

Статистика

0 подписчиков
0 за неделю
←   Все выпуски   →

В одномерном массиве найти среднее арифметическое четных чисел


В одномерном массиве найти среднее арифметическое четных чисел
2009-11-21 07:00 Александр
В одномерном массиве B, состоящего из N элементов, найти среднее арифметическое четных чисел. Option Base 1 Private Sub Command1_Click() Dim B() As Long Dim N As Integer N = Val(InputBox("Введите размеренность от 1 до 10 массива", "Задача №1", "N")) Select Case N Case Is < 1 Exit Sub Case Is 0 Then MsgBox "среднее арифметическое четных чисел = " & [...]

В избранное