Visual Basic

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

Войти

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

Другие темы раздела
VB Составить программу по выделению разрядов в числе... https://www.cyberforum.ru/ visual-basic/ thread303717.html Задача: Дано трехзначное число. Составить алгоритм выделения его разрядов и проверки, есть ли среди них нечетная цифра. Пожалуйста, помогите)):)	VB программа для решения матрицы Помогите пожалуйста, сессия на носу, надо контрольную сдать, а я не очень разбираюсь как эти программы пишутся(( Дана матрица Аnm(n-4, m- 4) А= -0,45 4 8 -11 -4 2 3 4,6 1,8 -3 5,9 11 12 -1,5 6,7 8 Найти произведение элементов матрицы. Во вложении образец как должно быть оформлено. Заранее спасибо!
VB Очень надо, ваще очень!!! Задача в VBA в Excel: Заданы две матрицы В(4,4) и D(3,3). Написать программу транспонирования каждой из заданных матриц с последующим перемножением транспонированной матрицы на соответствующую ей исходную. https://www.cyberforum.ru/ visual-basic/ thread303494.html	VB информатика срочно надо visual basic Даны числа x и y. Вычислить Z=a/(1+x+y)+x+y-max(a, x)/(a+x+y) https://www.cyberforum.ru/ visual-basic/ thread303430.html
VB Книги по созданию Dll Доброго времени суток:) Подскажите пожалуйста какие нибудь книги для создания и подключения библиотек Dll в Visual Basic 2010, естественно для начинающих:-[	*VB Несколько TextBox-ов в .txt** https://www.cyberforum.ru/ visual-basic/ thread303309.html Здравствуйте! Суть такова: есть 5 TextBox-ов (TextBox1-5) на форме, в каждом стоит ограничение на 5 символов. Задача в том, чтобы при вводе 5 символов курсор автоматически перескочил во второй TextBox и так далее по-порядку, чтобы заполнились все поля. Потом нужно нажать на кнопку (Command) и все содержимое TextBox-ов сохранилось в файл *.txt в одну строчку в том же порядке (1-5). Нужно для...
VB Дан двумерный массив. Найти сумму элементов главной диагонали. Дан двумерный массив. Найти сумму элементов главной диагонали. Добавлено через 5 минут люди помогите с этой задачей уже и читала книги ни как не могу догнать как это решается (Дан двумерный массив. Найти сумму элементов главной диагонали.) https://www.cyberforum.ru/ visual-basic/ thread303302.html	нужно найти ошибку VB Прошу помощи у более опытных пользователей Visual Basic, запутался с else и if нужно создать программу для вычисления саму программу я кое как написал, вот она Private Sub Command1_Click() Dim a As Single Dim b As Single Dim x As Single Dim y As Single a = Val(Textbox1.Text)
VB Ошибка с индексом, где она не представляю Здравствуйте, я тут недавно делал тему, где делал перекат с 1 таблицы в другую, там была моя ошибка - невнимательность. Но щас проблема в другом... Нижайше прошу помочь и разъяснить где была моя ошибка :( Я решил сделать следующее - сделать форму, разместить 4 кнопки , 1 лист и 2 лаибла. 1 кнопка - открыть базу данных 2 - вывести лист авторов в лист1 3 - загрузка индекса на таблицу 4... https://www.cyberforum.ru/ visual-basic/ thread303256.html	VB Разработка программы чтения таблиц,получ. 3-х нажеуказанных справок и документа https://www.cyberforum.ru/ visual-basic/ thread303187.html Дана таблица PROD (продукция): Предприятие, Продукция, Выпуск по месяцам полугодия(1,2,3,4,5,6), Цена Таблица PRED(предприятие): Предприятие, Адрес, Дата основания Справка 1.Вывод справки вида: Предприятие, Продукция,Среднемесячная стоимость, Номера месяцев с макс.выпуском Нужно написать программу для работы СПРАВКИ №1
VB Расшифровка текстового файла Многоуважаемые форумчане! Пожалуйста помогите с этим заданием, препод зверь, сказал за 2 дня сделать, а я вообще не понимаю в программировании. Заранее ВАМ всем огромное спасибо:) Создать прогу, для расшифровки текстового файла по след. алгоритму: 1. Зашифрованный текст содержится в файле тв2.txt 2. Варианты ключей содержатся в файле табл_ключ.txt; в каждой строке текстового файла размещено...	VB подсчитать количество элементов матриц подсчитать количество элементов матриц х(10,15) и y(20,12) удовлетворяющих условиям: 0<=Xij<=1 0<=Y<=1 https://www.cyberforum.ru/ visual-basic/ thread303034.html

_Лёша_

388 / 377 / 22

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

Сообщений: 1,078

25.05.2011, 12:52

Вводится последовательность натуральных чисел. Найти номер первого из четных и сумму чисел, стоящих перед ним. - VB - Ответ 1688381

25.05.2011, 12:52. Показов 1287. Ответов 1

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

Ответ

Наверное так

Visual Basic

Dim Strinput() As String = Split(inputbox("Введите последовательность через пробел"))
        Dim i As Integer
        Dim ch As Integer
        Dim Sum as Integer
For i = 0 To Strinput.Length - 1
    If CInt(Strinput(i)) Mod 2 = 0 Then
    Ch = i + 1
    Exit For
    Else
         Sum =  Sum +  CInt(Strinput(i))
    end if
Next
if Ch > 0 then
msgbox (" Номер первого из четных чисел " & Ch & " Cумма чисел, стоящих перед ним " & Sum)
Else
msgbox ("Четные числа отсутствуют")
end if

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

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

Programming

Эксперт

39485 / 9562 / 3019

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

Сообщений: 41,671

Блог

25.05.2011, 12:52

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

Вводится последовательность чисел до первого нуля, найти количество четных чисел. Только цикл через while
Вводится последовательность чисел до первого нуля, найти количество четных чисел.

С клавиатуры вводится N целых чисел a1, a2,….,aN. Найти сумму этих чисел. Найти номер первого четного числа последовательности чисел.
Решить задачу 3 способами: 1. Используя метки и оператор goto (не используя никакой цикл) 2....

Вводится последовательность из 15 целых чисел. Найти количество четных чисел
Ребят помогите пожалуйста . В Паскале не селён а вот тут надо работы сдать. Вводится...

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

	25.05.2011, 12:52

inter-admin

Эксперт

29715 / 6470 / 2152

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

Сообщений: 28,500

Блог

25.05.2011, 12:52

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

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

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

Вводится последовательность из n целых чисел. Найти сумму чисел кратных 3
Что не так? Я только начинаю изучать и не пойму почему не работает #include <stdio.h> #include...

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

Новые блоги и статьи
Как настроить 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 и GitHub CI/CD InfoMaster 14.01.2025 Определение микросервиса, преимущества использования Go/ Golang Микросервис – это архитектурный подход к разработке программного обеспечения, при котором приложение состоит из небольших, независимо. . .	Как написать микросервис с нуля на C# с RabbitMQ, CQRS и 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 Создание собственного фитнес-приложения — это не только захватывающий, но и полезный процесс, ведь оно может стать вашим верным помощником на пути к здоровому и активному образу жизни. В современных. . .	Как создать приложение магазина для iOS/iPhone на Swift InfoMaster 14.01.2025 Введение в разработку iOS-приложений Разработка приложений для iPhone и других устройств на базе iOS открывает огромные возможности для создания инновационных мобильных решений. В данной статье мы. . .	Это работает. Скорость асинхронной логики велика. Вопрос видимо останется в стабильности. Плата - огонь! Hrethgir 13.01.2025 По прошлому проекту в Logisim Evolution https:/ / www. cyberforum. ru/ blogs/ 223907/ blog8781. html прилагаю файл архива проекта в Gowin Eda. Восьмибитный счётчик из сумматора+ генератор сигнала. . .	UserScript для подсветки кнопок языков программирования в зависимости от текущего раздела volvo 13.01.2025 В результате работы этого скрипта подсвечиваются нужные кнопки не только в форме быстрого ответа, но и при редактировании сообщения: / / ==UserScript== / / @name CF_DefaultLangSelect / / . . .

Наверх