Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Общие вопросы по программированию, компьютерный форум
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 05.12.2020, 18:24   #1
Nytik
Новичок
Джуниор
 
Регистрация: 05.12.2020
Сообщений: 1
Сообщение Обработка одномерных массивов

Ребята помогите пожалуйста, нужно в Excel в VBA обработать одномерный массив Y(20) и вычислить среднее геометрическое элементов массива Y
На примере этого массива
Const N = 10
Dim M(1 To N) As Double, St As String, Mmax As Double, IMax As Integer
Dim i As Integer, j As Integer, jk As Integer, jn As Integer

Private Sub CommandButton1_Click()
Label1.Caption = "Исходный массив"
St = TextBox1.Text
St = " " + Trim(St) + " "
i = 0
jn = 1
jk = InStr(jn + 1, St, "")

While jn < jk
i = i + 1
M(i) = Val(Mid(St, jn, (jk - jn)))
jn = jk
jk = InStr(jn + 1, St, "")
Wend
TextBox2.Text = Str(i)
End Sub
Private Sub CommandButton2_Click()
Mmax = M(1)
IMmax = 1
For j = 2 To i
If M(j) > Mmax Then
Mmax = M(j)
IMmax = j
End If
Next j
TextBox3.Text = Str(Mmax)
TextBox4.Text = Str(IMmax)
End Sub
Nytik вне форума Ответить с цитированием
Старый 05.12.2020, 19:23   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,289
По умолчанию

файл xlsm с этим кодом приложи и напиши формулу расчета среднегеометрического
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Обработка одномерных массивов..please) sunrise7 Помощь студентам 2 23.11.2011 19:12
Обработка одномерных массивов Volume Помощь студентам 3 18.05.2011 19:38
Обработка одномерных массивов ProstoMaks Общие вопросы C/C++ 5 10.05.2011 17:43