Visual Basic

Форум программистов и сисадминов Киберфорум

Войти

Регистрация
Восстановить пароль

Другие темы раздела
VB Эмуляция нажатия клавиш в стороннем приложении https://www.cyberforum.ru/ visual-basic/ thread1973989.html Добрый день. Есть тестовое приложение, оно содержит один элемент меню, на котором висит shortcut(Ctrl+L) и командную кнопку. Если я нажимаю комбинацию клавиш Ctrl+L с клавиатуры, то появляется окно сообщения, что нажат пункт меню. Как сделать так, чтобы при нажатии на командную кнопку эмулировалось нажатие Ctrl+L для меню. Эту задачу удается решить с помощью keybd_event, но необходимо в...	Массив А заполнен случайным образом целыми числами. Расположите их в порядке убывания VB Массив А заполнен случайным образом целыми числами. Расположите их в порядке убывания Что-то не пойму как написать
*VB Заполнить действительную матрицу размерностью (65) случайными числами из диапазона [-3;2]** Заполнить действительную матрицу размерностью (6*5) случайными числами из диапазона . Вывести на экран новую матрицу, в которой на месте отрицательных элементов первоначальной матрицы расположить не равные 0, а остальные элементы вывести без изменений. Замененные элементы оформить рамкой. Помогите пожалуйста решить задание. https://www.cyberforum.ru/ visual-basic/ thread1973806.html	VB Включить в последовательность A1-An число С, соблюдая условие. https://www.cyberforum.ru/ visual-basic/ thread1973747.html Даны целые числа a1<= a2<= ...<= an и число с. Получить последовательность a1<= a2<= ...<= an+1, включив в нее число с.
"Программный элемент НАКОПЛЕНИЕ" VB 1. Найти произведение элементов четных строк матрицы В размерности l×m. Полученное значение присвоить элементу матрицы, расположенному в четвертой строке третьего столбца. Проанализировать выполнение программы на примере https://www.cyberforum.ru/attachment.php?attachmentid=828167&stc=1&d=1493826574	VB поправить написанную прграмму на картинке само задание. нам необходимо узнать, принадлежит ли точка данному рисунку. я сделал следующий вариант, преподаватель сказал что не правильно, и добавил что нужно брать не окружность а подсчет из прямоугольников, и тут у меня ступор.что делать? При умножение xx+yy <1 Программа может быть следующей Sub logical() Dim x, y As Double x = Val(InputBox("Введите x")) https://www.cyberforum.ru/ visual-basic/ thread1973164.html
VB Создаю текстовый редактор не получается сделать "Выделить все" https://www.cyberforum.ru/ visual-basic/ thread1973133.html visual basic 6.0, подскажите как сделать в правке "Выделить все"	Выделить все четные положительные элементы цветом и обвести рамкой, максимальный элемент увеличить в 10 раз VB Здравствуйте! Не понимаю как прописать выделение четных чисел и обведение рамкой. Буду благодарна за помощь. Заполнить 3-й столбец 10 целыми числами. Выделить все четные положительные красным цветом и обвести рамкой, максимальный элемент увеличить в 10 раз и обвести рамкой.
VB Сохранение и чтение данных из TextBox в TXT Доброго времени суток, Излагаю суть проблемы: в программе используются ГОСТы для распила древесины, на случай необходимости их корректировки решил разместить их в txt'шном файле. Теперь пытаюсь выяснить как загрузить данные из этого самого файла и как загрузить, чтобы можно было из программы внести изменения на форме и сохранить. На скрине форма с TextBox'ами , из которой и в которую надо... https://www.cyberforum.ru/ visual-basic/ thread1972868.html	VB Программная запись на следующую строку Textbox У меня есть textbox и я хочу чтобы на первой строке было написано "Ф.И.О",а на следующей было значение ,которое мы получаем из другого текстбокса. https://www.cyberforum.ru/ visual-basic/ thread1972866.html
Дано натуральное трехзначное число.Определить цифры этого числа (K, L, M)-Visual Basic VB Дано натуральное трехзначное число. Определить цифры этого числа (K, L, M) и выяснить, можно ли построить произвольный треугольник K, L, M. Пожалуйста!!	VB Меню на кнопке с цветным выделеним курсора Здравствуйте дорогие форумчане! заморочился я с таким к вам вопросом, (пример во вложении) поясню: на форме имеется кнопка с выпадающим меню, при нажатии на кнопку и наведении мыши слабо выделяется строка меню А ХОТЕЛОСЬ БЫ ЧТО БЫ ВЫДЕЛЯЛОСЬ КАКИМ НИБУДЬ ДРУГИМ ЦВЕТОМ ИЛИ РАЗНЫМИ ЦВЕТАМИ! заранее спасибо откликнувшимся! https://www.cyberforum.ru/ visual-basic/ thread1972728.html

~~MyExcel_17~~

Заблокирован

05.05.2017, 22:04

Поиск минимального в массиве - VB - Ответ 10405837

05.05.2017, 22:04. Показов 1153. Ответов 12

Метки (Все метки)

Ответ

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

Массивы беру,что среди 10 значений найти минимальное

aberg, начал работать.
Скопировал два массива и создал третий по модулю, результаты совпадают.
Пока ознакомитесь, может поступят предложения от других участников форума.

Visual Basic

Sub aberg()
Dim a(), b()
'--------------------
    ActiveSheet.UsedRange.EntireRow.Delete
    Cells.Clear
    [A2] = 1#:   [B2] = 167.931:   [C2] = 123.2019
    [A3] = 2#:  [B3] = 279.8851:   [C3] = 246.4037
    [A4] = 3#:   [B4] = 391.8391:   [C4] = 369.6095
    [A5] = 4#:  [B5] = 503.7931:  [C5] = 492.8074
    [A6] = 5#:  [B6] = 615.7471:   [C6] = 616.0093
    [A7] = 6#:  [B7] = 727.7011:   [C7] = 739.2111
    [A8] = 7#:   [B8] = 839.6552:   [C8] = 862.413
    [A9] = 8#:  [B9] = 951.6092:  [C9] = 985.6148
    [A10] = 9#:  [B10] = 1063.563:   [C10] = 1108.817
    [A11] = 10#:  [B11] = 1175.517:  [C11] = 1232.019
    a = Sheets(1).[A1].CurrentRegion.Value
    Sheets(1).[f1].Resize(UBound(a, 1), UBound(a, 2)) = a
      
    ReDim b(2 To 11)
    For i = 2 To 11
      b(i) = Abs(a(i, 2) - a(i, 3))
      Cells(i, 9) = b(i)
     Next
End Sub

Вернуться к обсуждению:
Поиск минимального в массиве VB

Следующий ответ

Миниатюры

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

05.05.2017, 22:04

Готовые ответы и решения:

Поиск минимального элемента в массиве
Здравствуйте! Срочно нужно сделать массив Y(y1,y2...yn) и из его положительных элементов создать...

Поиск максимального и минимального значения в массиве: исправить код
Dim Xmax As Double, Xmin As Double, a As Double, b As Double, x As Double, h As Double Private...

Поиск минимального элемента в массиве
Разработайте модификацию алгоритма. Поиск минимального элемента в массиве в случае, когда...

Поиск в массиве минимального элемента
Ребят помогите. дан массив n*n. нужно найти в каждом столбце минимальный элемент и записать данные...

	05.05.2017, 22:04

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

05.05.2017, 22:04

Помогаю со студенческими работами здесь

Поиск минимального элемента в массиве
Написал на С, заработало, на VBA не хочет(, помогите пожалуйста исправить. В Excel я в ячейках...

Поиск минимального значения в массиве
Здравствуйте Не могу реализовать поиск минимального элемента в массиве Помогите пожалуйста с...

Поиск минимального элемента в массиве
дан одномерный массив А. Написать программу на языке паскаль, реализующую поиск минимального...

Поиск минимального элемента в массиве
Используя шаблон функции реализовать следующие задачи: 1) считывание массива из стандартного...

Наверх