|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.11.2011, 23:02 | #1 |
Новичок
Джуниор
Регистрация: 21.11.2011
Сообщений: 2
|
VB одномерный массив
ребят срочно нужно решить задачку, мой мозг уже закипает..
Определить среднее арифметическое элементов с нечетными индексами одномерного массива D размерности К. |
22.11.2011, 00:24 | #2 |
Новичок
Джуниор
Регистрация: 21.11.2011
Сообщений: 2
|
есть набросок
Option Base 1 Private Sub Command1_Click() Dim i, k As Integer Dim D(), s As Single k = InputBox("введите количество элементов массива") ReDim D(k) Print "матрица D" For i = 1 To k B(i) = InputBox("B(i)", "ввод значений элементов массива") Print B(i) Next i s = 0 For i = 1 To k If i Mod 2 <> 0 Then s = s + D(i) i = i + 1 Else i = i + 1 End If Next i s = s / k Print "ср арифм:", s End Sub |
22.11.2011, 12:00 | #3 |
Форумчанин
Регистрация: 14.02.2009
Сообщений: 753
|
Option Explicit в начале модуля помогло бы найти ошибку.
А она в том, что объявлен назначен размер массива "D" а заполняется "B" И при нахождении среднего делить надо на количество нечётных элементов, а не на общее количество элементов в массиве. Код:
помогу решить контрольные VB6, VBA (недорого)
Alex77755@mail.ru |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Одномерный массив и Двумерный массив | eugene1437 | Общие вопросы C/C++ | 15 | 25.05.2011 19:17 |
Одномерный массив , двухмерный массив | Woxx | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 10.09.2010 09:28 |
Одномерный массив. Q basic - Построить новый массив из элементов исходного ,которые больше P. | Marishkaa | Помощь студентам | 2 | 12.01.2010 16:54 |
Двумерный массив, одномерный массив. | Branbal | Помощь студентам | 14 | 18.11.2009 12:40 |
Одномерный массив. | medic357 | Общие вопросы C/C++ | 1 | 23.03.2009 19:39 |