Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
Другие темы раздела
VB Ошибка в Math.Log https://www.cyberforum.ru/ visual-basic/ thread1762233.html
Добрый день, перейду сразу к делу кто может сказать почему выдает ошибку и подчеркивает a = Math.Log(Text1.Text)??? Private Sub Command3_Click() Dim a As Double Dim cancel As Integer a = Math.Log(Text1.Text) If IsNull(Me.Text1.Text) Then MsgBox "Не заполнено поле для ввода" cancel = True Me.Text1.SetFocus
VB Вложенные циклы
Здравствуйте, помогите пожалуйста решить задачу двумя способами: используя и не используя вложенные циклы
VB Восстановить файл изображения сохраненного, как текст Привет форумчанам! Есть файл *.png (или любой файл изображения) открытый в блокноте и сохраненный через него. Есть возможность получить снова из него изображение? Или например, есть куча кракозябров (это точно картинка), загрузить их в PictureBox и получить собственно картинку? Или все-таки изображение окончательно потеряно во время пересохранения? Пример во вложении. https://www.cyberforum.ru/ visual-basic/ thread1761962.html VB Составить программу автоматического переноса слов https://www.cyberforum.ru/ visual-basic/ thread1761911.html
Товарищи, помогите пожалуйста. Необходимо составить программу автоматического переноса слов. Исходная информация вводится с клавиатуры. Заранее благодарен, за любую помощь!
Выпадающий список из TextBox VB
Доброго всем времени суток!Нужно сделать выпадающий список из TextBoxа при наведении указателя мыши.Мне удалось его реализовать с использованием массива элементов управления.Работает точно как нужно,но что то мне подсказывает что это не самая лучшая идея.Код получется довольно длинный,если учесть,что TextBoxов в программе довольно много. Пожалуйста подскажите как можно сделать более...
VB Вычислить и вывести среднее арифметическое значение элементов заданного массива VB 6.0. Задания простые но не для меня 1.Вычислить и вывести среднее арифметическое значение элементов заданного массива А16 (10). 2. Вычислить и вывести среднее квадратическое нечетных элементов массива В (12). 3. Поменять местами максимальный и минимальный элементы массива L (10). Вывести исходный и преобразованный массивы. https://www.cyberforum.ru/ visual-basic/ thread1761280.html
VB Как объявить переменную, имя которой находится в другой переменной В переменной X находится имя другой переменной D. Требуется объявить эту переменную как тип STRING. Присвоить что-нибудь и напечатать. Прилагаемый код решает данную задачу. Но вот ГЛАВНЫЙ ВОПРОС. А можно ли это сделать в любом случае, не зная что там в переменной икс? https://www.cyberforum.ru/ visual-basic/ thread1760686.html VB Последовательность четных и не четных чисел
Дана последовательность чисел. Нужно определить, соблюдается ли последовательность чередования четных и не четных цифр (то есть, если это 123456, то соблюдается, а если 12356 то не соблюдается)
VB Do Loop (точность) Здравствуйте пользователи cyberforum`а. Помогите пожалуйста мне решить задачу:" Численно убедиться в справедливости равенства, для чего для заданного аргумента x вычислить левую его часть и разложение, стоящее в правой части, с заданной погрешностью епсилон(Е)=0.001. Вывести число интеграций n, необходимых для достижения заданной точности. Сделать это нужно при помощи do loop https://www.cyberforum.ru/ visual-basic/ thread1759880.html VB Составить программу и вычислить. Visual Basic https://www.cyberforum.ru/ visual-basic/ thread1759547.html
Составить программу и вычислить: {Z}_{i}=\frac{A{i}^{}}{6}+k*{e}^{2x}; x=\sum_{j=1}^{3} \frac{bj}{c}+\sum_{j=1}^{3}\sqrt{bj} {a}_{o}=12; {K}_{a}=24; h=4,k=25*10^3; {b}_{j}=0.065; 9,2; 12,82; c=3,6 Для организации цикла при вычислении Z1 использовать оператор цикла while..do.
VB Написать программу и вычислить в Visual Basic
Написать программу и вычислить: Значение X выдать с клавиатуры. DI=R^3-\sqrt{\frac{c}{3q}} R=\begin{cases} & \text{ q\sqrt{1+x} } \\ & \text{ c+\frac{Inq}{x} } \end{cases} c=1,2; q=7.05 Если 0,5\leq x<1,2 Если X=1,2
VB Арифметические операции, Алгоритм перевода https://www.cyberforum.ru/ visual-basic/ thread1759489.html
1) Арифметические операции, деление с плавающей точкой и целочисленное деление, вычисление остатка, конкатенация строк.Порядок выполнения операций. 2) Алгоритм перевода целой и дробной частей чисел из одной системы счисления в другую. 3) Создать программу (функцию), вычисляющую сумму n элементов следующего ряда: a0=1, a1=0.2, ai=10ai-2-ai-1, i=2,...,n. Значение n вводится с клавиатуры. ...
Модератор
Эксперт функциональных языков программированияЭксперт Python
36595 / 20325 / 4218
Регистрация: 12.02.2012
Сообщений: 33,625
Записей в блоге: 13
16.06.2016, 17:32 0

Массив: Найти сумму трех минимальных из массива двузначных чисел - VB - Ответ 9280756

16.06.2016, 17:32. Показов 2274. Ответов 33
Метки (Все метки)

Ответ

geh, если в массиве 10 элементов, то проще. А если 10 тыс - то сильно непроще.

Добавлено через 5 минут
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Function S3min(A() as long)  as long
      n%=Ubound(A,1)
      For i%=1 to n%-1
          For j%=i%+1 to n%
               if A(i%)>A(j%) then
                  tmp&=A(i%)
                  A(i%)=A(j%)
                  A(j%)=tmp&
               end if
          Next j%
     Next i% 
     S3min=A(1)+A(2)+A(3)
End Function
И все. Но решение с сортировкой нехорошее, т.к. оно модифицирует исходный массив, чего следует избегать. Можно, конечно, сделать копию массива, но это лишний расход памяти.

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

Найти сумму минимальных элементов одномерного массива
Помогите пзлы. Одномерный массив, найти сумму минимальных элементов массива

Найти сумму трех минимальных элементов массива
В масиве 12 элементов которые вводит пользователь. Найти сумму трех минимальных элементов.

Найти сумму минимальных Чисел в каждой строке массива
Есть массив 3на3. Нужно сложить максимальные значения каждой строки. В данный момент имею вот это :...

Найти индекс трех минимальных элементов массива
В чем ошибка? Первых два индекса считает, третий не правильно. МОЖЕТ ЕСТЬ СПОСОБ ПОЛЕГЧЕ int...

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

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

Найти новое трехзначное число путем вычеркивания трех минимальных чисел
Дано шестизначное число N. Найти новое трехзначное число путем вычеркивания трех минимальных чисел...

Последовательности чисел. Найти сумму и произведение отрицательных двузначных чисел
Вводится 25 чисел. найти сумму и произведение отрицательных двузначных чисел

Найти в последовательности натуральных чисел сумму двузначных чисел, начинающихся на 7
Напишите программу, которая в последовательности натуральных чисел определяет сумму двузначных...

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