|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
05.12.2020, 18:24 | #1 |
Новичок
Джуниор
Регистрация: 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 |
05.12.2020, 19:23 | #2 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
файл xlsm с этим кодом приложи и напиши формулу расчета среднегеометрического
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Обработка одномерных массивов..please) | sunrise7 | Помощь студентам | 2 | 23.11.2011 19:12 |
Обработка одномерных массивов | Volume | Помощь студентам | 3 | 18.05.2011 19:38 |
Обработка одномерных массивов | ProstoMaks | Общие вопросы C/C++ | 5 | 10.05.2011 17:43 |