Visual Basic

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

Войти

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

Другие темы раздела
VB Как работают операторы сравнения Sub ¹1() a = 3 b = 4 c = 5 d = 6 If (c < d < a) Then MsgBox ("не кул") End If https://www.cyberforum.ru/ visual-basic/ thread684176.html	VB Вычислить суммы рядов, используя зависимость последующего члена от предыдущего Вычислить суммы рядов, используя зависимость последующего члена от предыдущего(а не общую формулу слагаемого), с точностью е=0.001 и сравнить полученный результат с точным значением, определяемым по ф-е для левой части выражения. Значения аргумента х может быть любым в заданном диапазоне. P.S. ах нижнее подчеркивание n! - это дробь, я не имею понятие как это сделать в ворде, <нижнее...
VB Замена отрицательных элементов массива абсолютными значениями https://www.cyberforum.ru/ visual-basic/ thread683929.html Помогите написать программу: В заданном векторе X1, X2, ..., Xn заменить значения отрицательных элементов их абсолютными величинами, при этом подсчитать число элементов, равных нулю.	VB Ввод только цифр, но с разрешением Backspace Здравствуйте. Private Sub Text1_KeyPress(KeyAscii As Integer) If KeyAscii < Asc(0) Or KeyAscii > Asc(9) Then KeyAscii = 0 End If End Sub Разрешает только цифры, но если ошибся при вводе, приходится выделять и Del'итать. Как добавить разрешение на Backspace. https://www.cyberforum.ru/ visual-basic/ thread683864.html
VB Подсказка при наведении курсора на Label (или textbox) Здравствуйте, Не нашел ничего похожего, кроме как ShowHints в Delphi.. Есть ли в VB встроенная опция у Label'ов, чтобы при наведении на них курсора выскакивала подсказка? Если нет, то как осуществить? Благодарю =*	VB Напечатать в алфавитном порядке все слова длиной n из данного файла Помогите пожалуйста решить задачу на языке Visual Basic 6.0 : Дан текстовый файл. Напечатать в алфавитном порядке все слова из данного файла, имеющая численную длину n https://www.cyberforum.ru/ visual-basic/ thread683648.html
VB Дан текст и некоторая буква. Найти слово, содержащее эту букву наиболее количество раз Помогите, пожалуйста Дан текст и некоторая буква. Найти слово, содержащее эту букву наиболее количество раз. Добавлено через 11 минут help me!!!!! Добавлено через 1 минуту please!!!!!! ...1 минута ... 10 минут ... https://www.cyberforum.ru/ visual-basic/ thread683588.html	VB Очистить все TextBox на форме, кроме одного Private Sub Image1_Click() Dim cntr As Control For Each cntr In Me.Controls If TypeOf cntr Is TextBox Then cntr.Text = "" End If Next End Sub Здравствуйте. Так очищаю всю форму, а как сюда вставить исключение для одного textbox'са какого-нибудь?
VB Разбить предложение на слова Как вырезать все слова из текста? Добавлено через 1 минуту помогите, пожалуйста https://www.cyberforum.ru/ visual-basic/ thread683492.html	VB Составить три регулярных выражения для работы с текстовым файлом https://www.cyberforum.ru/ visual-basic/ thread683437.html Написать программу которая по заданному регулярному выражению (минимум 3 выражения) выводит на экран результат работы. Надо считывать данные с текстового файла.
Предложения по совершенствованию раздела и закреплению в "ВАЖНЫЕ" новых тем VB Есть такие предложения: 1. Снять закрепление большинства ВАЖНЫХ тем со статьями в этом разделе; 2. Создать единую тему "Авторские статьи", в которой будут размещены: ссылки на статьи с указанием авторства, к какой категории знаний принадлежат. (Статья для форума должна быть оформлена в виде новой темы. Ссылка на нее - в личку модератору. Модератор заносит ее в 1-й пост.)	VB Создание меню в приложении 40 минут потратил на поиск, но так ничего не нашел. Помогите, нужны коды программ: 1. Создание меню 2. Обработка событий мыши или клавиатуры 3. Подпрограммы 4. Графика Может у кого на примете есть тема, киньте ссылку Создание темы с множеством вопросов не допускается (п. 4.4. Правил форума). https://www.cyberforum.ru/ visual-basic/ thread682932.html

StarEjik

0 / 0 / 0

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

Сообщений: 5

Найти количество элементов массива, которые меньше или равны 10 - VB - Ответ 3630659

30.10.2012, 16:59. Показов 2688. Ответов 8

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

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

Доброго дня, помогите решить задачку: Найти колличество элементов в массиве, которые меньше или равные 10. Огромное спасибо!!!

Задачка подобная этой (Найти максимум среди элементов массива)

Visual Basic

Private Sub cmd_click()
Dim n As Integer
Dim c() As Single
Dim max As Single
Dim i As Integer
n = CInt(txtn.Text)
ReDim c(n)
txtc.Text = ""
For i = 1 To n
c(i) = InputBox("Ввести c(" & i & ")=")
txtc.Text = txtc.Text & CStr(c(i)) & ","
Next i
max = c(1)
For i = 2 To n
If c(i) > max Then
max = c(i)
End If
Next i
txtmax.Text = CStr(max)
End Sub

Вернуться к обсуждению:
Найти количество элементов массива, которые меньше или равны 10 VB

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

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

IT_Exp

Эксперт

34794 / 4073 / 2104

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

Сообщений: 32,602

Блог

30.10.2012, 16:59

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

Как подсчитать количество элементов ai, которые не меньше всех предыдущих элементов массива
Дан числовой массив a(n). Подсчитать количество элементов ai, которые не меньше всех предыдущих...

Найти количество элементов в массиве которые меньше чем k
Дано масив M и k . Найти количество елементов которые меньше чем k.

Выбрать все числа, которые меньше или равны среднему арифметическому всех чисел ряда
В последовательности чисел выбрать все числа, которые меньше или равны среднему арифметическому...

Найти элементы массива Z, которые равны попарному произведению
1. Даны массивы: X из 4 элементов: X(1)=2.5, X(2)=4.6, X(3)=5.6, X(4)=8.4, Y из 4 элементов:...

	30.10.2012, 16:59

BasicMan

Эксперт

29316 / 5623 / 2384

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

Сообщений: 30,364

Блог

30.10.2012, 16:59

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

Создать новый массив из номеров элементов первого массива, которые равны 0
Решите пожалуйста! Сформировать массив из К натуральных случайных чисел в диапазоне от -5 до 5....

Сумма 1-го элемента массива и элементов массива, начиная с четвёртого, которые меньше или равны первому элементу
Что здесь высчитывается и какой ответ? var k,m: integer; dat: array of integer; begin dat :=...

Указатели. Найти количество элементов массива, которые больше 100, меньше 100, равны 100
Разработать функцию,которая находит количество элементов массива,которые больше 100,меньше 100,...

Найти все элементы массива, которые меньше или равны своему индексу
Помогите пожалуйста с написание кода. Выдаёт ошибку, не могу понять где.:( Задание: Дано...

Новые блоги и статьи
Параллельное программирование: основные технологии и принципы InfoMaster 15.01.2025 Введение в параллельное программирование Параллельное программирование представляет собой фундаментальный подход к разработке программного обеспечения, который позволяет одновременно выполнять. . .	Как написать микросервис на C# с Kafka, MediatR, Redis и GitLab CI/CD InfoMaster 15.01.2025 В современной разработке программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот подход позволяет разделить сложную систему. . .	Что такое CQRS и как это реализовать на C# с MediatR InfoMaster 15.01.2025 Концепция CQRS и её роль в современной разработке В современном мире разработки программного обеспечения архитектурные паттерны играют ключевую роль в создании масштабируемых и поддерживаемых. . .	Как настроить CI/CD с Azure DevOps InfoMaster 15.01.2025 CI/ CD, или непрерывная интеграция и непрерывное развертывание, представляет собой современный подход к разработке программного обеспечения, который позволяет автоматизировать и оптимизировать процесс. . .	Как настроить CI/CD с помощью Jenkins InfoMaster 15.01.2025 Введение в CI/ CD и Jenkins В современной разработке программного обеспечения непрерывная интеграция (CI) и непрерывная доставка (CD) стали неотъемлемыми элементами процесса создания качественных. . .	Как написать микросервис на Go/Golang с Kafka, REST и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .
Как написать микросервис с нуля на C# с RabbitMQ, CQRS, Swagger и CI/CD InfoMaster 14.01.2025 В современном мире разработки программного обеспечения микросервисная архитектура стала стандартом де-факто для создания масштабируемых и гибких приложений. Этот архитектурный подход предполагает. . .	Как создать интернет-магазин на PHP и JavaScript InfoMaster 14.01.2025 В современном мире электронная коммерция стала неотъемлемой частью бизнеса. Создание собственного интернет-магазина открывает широкие возможности для предпринимателей, позволяя достичь большей. . .	Как написать Тетрис на Ассемблере InfoMaster 14.01.2025 Тетрис – одна из самых узнаваемых и популярных компьютерных игр, созданная в 1984 году советским программистом Алексеем Пажитновым. За прошедшие десятилетия она завоевала симпатии миллионы людей по. . .	Как создать игру "Танчики" на Unity3d и C# InfoMaster 14.01.2025 Разработка игр – это увлекательный процесс, сочетающий в себе творчество и технические навыки. В этой статье мы рассмотрим создание классической игры "Танчики" с использованием Unity3D и языка. . .	Организую платный онлайн микро-курс по доработке Android-клиента Telegram _Ivana 14.01.2025 Официальная версия и распространенные форки не полностью устраивают? Сделай свою кастомную версию клиента! 4 занятия по 2 часа (2 недели пн, ср 19:00-21:00 по Москве). Первое вводное занятие. . .	Как создать приложение для фитнеса для iOS/iPhone на Kotlin InfoMaster 14.01.2025 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .

Наверх