Пограмма на языке VBA для нахождения среднего арифметического

@Paul1 · Регистрация: 30.12.2022

Студворк — интернет-сервис помощи студентам

Здравствуйте, препод сказал мне переписать данный код, но чтобы он брал значения из ячеек Эксель, а не через массивы(Я не нашёл в редакторе VBA и выбрал VB, пожалуйста, не ругайте!!):

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Lab7()
    Dim x(1 To 10) As Double 
    Dim s As Single 
    s = 0
    x(1) =-0.1
    x(2) = 0.05
    x(3) = 0.7
    x(4) = 0.8
    x(5) = -1.5
    x(6) = 0.2
    x(7) = 0.4
    x(8) = - 1
    x(9) = 0.1
    x(10) = 1.5
    For i=Lbound(x) To Ubound(x) 
           s=s+x(i) 
    Next i
s=s/10
Cells(3,2)= "s=" & s
End Sub

Я переписал код. Все значения "x" у меня в ячейках Эксель:

Visual Basic
1
2
3
4
5
6
7
8
9
Sub Lab7
Dim x As Single, y As Single 
Dim s As Single 
s=0
For x = 1 To 10 Step 1 
       If Cells(x, 2) < 0 Then: s = s + Cells(x, 2)
Next x
s = s / 10
Cells(13,1) = "s=" & s

Этот код работает, но препод сказал, что он неправильный, указав на то, что у меня x - скалярная величина. Скажите, пожалуйста, где у меня ошибка в коде? Я что-то не понимаю как именно надо написать.

I can · 24.12.2024, 19:12

Сообщение от Paul1

где у меня ошибка в коде?

А задание какое?

@Paul1 · 24.12.2024, 19:20 **[ТС]**

Блин, извините, забыл написать:
"Даны два массива с элементами x, y, i = 1,2,3,..., 10. Xi =[-0,1 0,05 0,7 0,8 - 1,5 0,2 0,4 - 1 0,1 1,5]. Найдите среднее арифметическое чисел Xi с помощью VBA.
Вы не знаете как редактировать заданный вопрос на форуме? Я не просто не разобрался.

I can · 24.12.2024, 19:27

Сообщение от Paul1

как редактировать заданный вопрос на форуме?

Можно и так оставить, ничего страшного.
Короче, надо массивы заполнить с листа Эксель, а потом вычислять.
А второй-то массив какой?

Сообщение от Paul1

Найдите среднее арифметическое чисел Xi

Среднее арифметическое каких элементов массива? Судя по предыдущим сообщениям, которые меньше 0 ?

@Paul1 · 24.12.2024, 19:39 **[ТС]**

Yi=[0,1 0,05 0,7 0,8 -1,5 0,2 0,4 -1 0,1 1,5] - я не стал писать эту таблицу, потому что она не нужна.
Так-то в задании написано, что просто среднее арифметическое ряда Xi, но тут моя, видимо, ошибка. Почему-то препод на это внимание не обратил.

I can · 24.12.2024, 19:44

Сообщение от Paul1

Yi=[0,1

Массивы одинаковые что-ли?

SergioJek · 24.12.2024, 20:18

Visual Basic
1
Range("a13") = WorksheetFunction.Average(Range("b1:b10"))

@elixi · 24.12.2024, 21:08

Сообщение от Paul1

Так-то в задании написано, что просто среднее арифметическое ряда Xi, но тут моя, видимо, ошибка. Почему-то препод на это внимание не обратил.

видимо препод обращает в первую очередь внимание на то что вы ему преподнесли и пытается вас привести к тому, чтобы вы устранили ошибки

Сообщение от Paul1

препод сказал мне переписать данный код, но чтобы он брал значения из ячеек Эксель, а не через массивы

с преподом вашим говорили вы но правильно-ли интерпретитуете его слова - еще вопрос

Вариант 1.
У меня сомнения что препод вас хочет увести от работы с массивами.
Из ячеек эксель можно данные загрузить в массив и дальше массив обработать (почти) не измененным кодом.

Вариант 2.
Допустим задача в том, чтобы вы попробовали работу напрямую с ячейками.
Ваш переписанный код тогда если бы и выдал правильный итог (а он не выдает),
то в вашем коде вы переменную х переквалифицировали на значение строки,
она в вашем коде не соответсвует тому значению, который ей принадлежит
это к тому:

Сообщение от Paul1

Этот код работает, но препод сказал, что он неправильный, указав на то, что у меня x - скалярная величина.

(но деградировали вы статус переменной х и тем запутываете и первоначальную задачу и
всех смотриящих которые пытаюся разобрать ваш переписанный код)

@Angry Old Man · 24.12.2024, 22:00

Paul1, Можно воспользоваться стандартной функцией листа Excel, как сделал SergioJek, а можно написать свою функцию, которую можно использовать в подпрограмме, а также на листе. Файл прилагаю, уберите только расширение .txt

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Paul1()
    Range("B14") = Aver(Range("B3:B12"))
    Range("D14") = Aver(Range("D3:M3"))
End Sub
 
Function Aver(X As Range) As Variant
    Dim Xi As Variant
    Aver = 0
    For Each Xi In X
        Aver = Aver + Xi
    Next
    Aver = Aver / X.Count
End Function

Новые блоги и статьи Все статьи Все блоги /
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .
Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .	Мысли в слух kumehtar 18.11.2025 Кстати, совсем недавно имел разговор на тему медитаций с людьми. И обнаружил, что они вообще не понимают что такое медитация и зачем она нужна. Самые базовые вещи. Для них это - когда просто люди. . .	Создание Single Page Application на фреймах krapotkin 16.11.2025 Статья исключительно для начинающих. Подходы оригинальностью не блещут. В век Веб все очень привыкли к дизайну Single-Page-Application . Быстренько разберем подход "на фреймах". Мы делаем одну. . .	Фото: Daniel Greenwood kumehtar 13.11.2025	Расскажи мне о Мире, бродяга kumehtar 12.11.2025 — Расскажи мне о Мире, бродяга, Ты же видел моря и метели. Как сменялись короны и стяги, Как эпохи стрелою летели. - Этот мир — это крылья и горы, Снег и пламя, любовь и тревоги, И бескрайние. . .

@Paul1 -1 / 0 / 0 Регистрация: 30.12.2022 Сообщений: 20
	24.12.2024, 19:20 [ТС]
	Блин, извините, забыл написать: "Даны два массива с элементами x, y, i = 1,2,3,..., 10. Xi =[-0,1 0,05 0,7 0,8 - 1,5 0,2 0,4 - 1 0,1 1,5]. Найдите среднее арифметическое чисел Xi с помощью VBA. Вы не знаете как редактировать заданный вопрос на форуме? Я не просто не разобрался. 0

@Paul1 -1 / 0 / 0 Регистрация: 30.12.2022 Сообщений: 20
	24.12.2024, 19:39 [ТС]
	Yi=[0,1 0,05 0,7 0,8 -1,5 0,2 0,4 -1 0,1 1,5] - я не стал писать эту таблицу, потому что она не нужна. Так-то в задании написано, что просто среднее арифметическое ряда Xi, но тут моя, видимо, ошибка. Почему-то препод на это внимание не обратил. 0