Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Отправка E-Mail с использованием почтовой программы https://www.cyberforum.ru/ visual-basic/ thread1352963.html
Добрый день Уважаемые коллеги! пробовал найти на этом да и на сторонних ресурсах материалы по отправке почты (с использованием почтовника). нашел кучу всего: http://vbbook.ru/page/otkruvaem-ssulky-v-brayzere-po-ymolchaniu/ https://www.cyberforum.ru/visual-basic/thread745569.html https://www.cyberforum.ru/vbscript-wsh/thread683993.html#post3628610 Все делается внутренними средствами,...
VB Определить есть ли среди цифр одинковые, вывести их
Помогите пожалуйста.Определить есть ли среди цифр массива одинковые, вывести их
VB Задания из книги https://www.cyberforum.ru/ visual-basic/ thread1352953.html
задание 16 - с.63 задание 17 - с.66 задание 18 - с.69 задание 19 - с.71 задание 20 - с.74 из книги VB.pdf Нарушение правил 5.16 и 5.18 https://www.cyberforum.ru/announcement.php?a=3 Исправляйтесь!
VB В матрице a(n на m) поменять местами строки с наибольшей и наименьшей суммой В матрице a(n на m) поменять местами строки с наибольшей и наименьшей суммой. Двумерные массивы. Visual basic. Помогите пожалуйста. https://www.cyberforum.ru/ visual-basic/ thread1352614.html
VB задачи
завтра экзамен по программированию.киньте какие-нибудь задачи на строки(замена цифр,поик максимума и минимум и тд) и на консольную графику
VB Проверить, имеют ли три заданных целых числа одинаковую четность или нет https://www.cyberforum.ru/ visual-basic/ thread1352533.html
Вывести на экран 1 или 0 в зависимости от того, имеют ли три заданных целых числа одинаковую четность или нет.
VB Как написать простенький проксификатор https://www.cyberforum.ru/ visual-basic/ thread1352435.html
Всем доброго времени суток, задался желанием написать простенький проксификатор, т.е. работа через прокси, соксы. Наведите на какие - нибудь примеры или информацию, чтобы можно было начать. Добавлено через 3 часа 51 минуту UPD. Наведет кто на путь истинный?)
VB Не загружается проект
здравствуйте, при открытии проекта получаю месседж: путь к проекту\MSCOMCTL.OCX не может загрузиться-Продолжить загрузку проекта? у меня в C:\WINDOWS\system32 файл MSCOMCTL.OCX имеется на всякий случай я его положил и в папку с проектом но проблема осталась, спасибо
VB Курсовая задача. На массивы Помогите решить задание, до 14 января успеть надо(( Ничего не успеваю, помогите кто чем сможет, Не могу задание вообще понять, и ещё в Visual basik как всё это сделать, я ничего не понимаю(( Помогите!!! https://www.cyberforum.ru/ visual-basic/ thread1352124.html VB Решение задачи на массивы https://www.cyberforum.ru/ visual-basic/ thread1351291.html
Пожалуйста помогите решить. Перепечатывайте задание сюда
Переписать первые элементы каждой строки матрицы А в массив D, если в строке есть элемент больше 13 VB
Переписать первые элементы каждой строки матрицы А(7,3) в массив D, если в строке есть элемент больше 13. Если в строке нет такого элемента, то записать ноль в массив D в соответствующем месте. Вывести исходную матрицу и образованный массив в ответе. Элементы матрицы А задать самостоятельно.
VB Упаковщики программ Подскажите знающие люди, есть ли на белом свете пакер, для которого нет анпакера?:beach: Или единственный такой упаковщик-тот что ты написал сам?:coffee2: https://www.cyberforum.ru/ visual-basic/ thread1351160.html
413 / 250 / 118
Регистрация: 26.12.2012
Сообщений: 787
14.01.2015, 23:32 0

Найти среднее арифметическое последовательности положительных чисел - VB - Ответ 7106944

14.01.2015, 23:32. Показов 1708. Ответов 1
Метки (Все метки)

Лучший ответ Сообщение было отмечено The trick как решение

Решение

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Explicit
Dim a As Integer, sum As Integer
Dim counter As Integer
Private Sub Form_Click()
Dim sr As Single
counter = 0
sum = 0
    Do
        a = Val(InputBox("Введите число"))
        Print a;
        If a <> 0 Then counter = counter + 1
        sum = sum + a
    Loop Until a = 0
    sr = sum / counter
Print
Print sr;
End Sub


Вернуться к обсуждению:
Найти среднее арифметическое последовательности положительных чисел VB
0
Заказать работу у эксперта
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
14.01.2015, 23:32
Готовые ответы и решения:

среднее арифметическое положительных чисел,стоящих по главноц диагонали
помогите,пожайлуста, решить задачу:дан двумерный массив А(N,N ).Надо найти среднее арифметическое...

Из последовательности N чисел вычислить среднее арифметическое значение отрицательных
Вводится последовательность из N чисел. Вычислить среднеарифметическое значение отрицательных среди...

Найти среднее арифметическое последовательности
помогите) Дана последовательность из n целых чисел. Найти среднее арифметическое этой...

Найти среднее арифметическое из положительных элементов массива
Знаю,что легко,знаю,что самому надо,но всё же прошу помощи) 3.найти среднее арифметическое из...

1
14.01.2015, 23:32
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
14.01.2015, 23:32
Помогаю со студенческими работами здесь

Найти среднее арифметическое из квадратов заданной последовательности
Добрый день! Вот задали по VB пару заданий все получалось а вот с массивами замкнулся не могли бы...

Найти среднее арифметическое количество отдельно для положительных и отрицательных элементов массива
Найти среднее арифметическое количество отдельно для положительных и отрицательных элементов...

Вводится последовательность чисел. Найти среднее арифметическое чисел, номера которых кратны 3.
В visual basic почти не разбираюсь..очень нужно сделать задание..помогите,пожалуйста!:-[ ...

В заданном файле целых чисел найти среднее арифметическое всех чисел, находящихся на позициях, кратных 3
в заданном файле целых чисел найти среднее арифметическое всех числе, находящихся на позициях...

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru