Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Другие темы раздела
VB Сколько дней потребуется предприятию, чтобы количество продукции превысило запланированный объем Малое предприятие в первый день работы выпустило P единиц товарной продукции. Каждый последующий день оно выпускало на Q единиц больше, чем в предыдущий. Сколько дней потребуется предприятию, чтобы... https://www.cyberforum.ru/ visual-basic/ thread685864.html VB Вычисление суммы всех нечетных чисел от 101 до 301
Напишите программу вычисления суммы всех нечетных чисел от 101 до 301. Используйте цикл с предусловием с ключевым словом While. Заранее спасибо.
VB Приложение не запускается на других ПК (Отсутствует DLL) Ночи доброй, уважаемые пользователи CyberForum. Вот уже три дня и три ночи (как сказка) я мучаюсь со своей программой, чтоб оптимизировать ее под разные ОС. Программа очень проста, она получает... https://www.cyberforum.ru/ visual-basic/ thread685784.html VB Решение уравнения методом Эйлера https://www.cyberforum.ru/ visual-basic/ thread685723.html
1.Разработать приложение на Visual Basic 6 для решения указанной задачи: Численно решить методом Эйлера дифференциальное уравнение с заданными начальными условиями на отрезке с шагом h=0,1 при...
Принадлежит ли начало координат одной из сторон заданного тремя точками треугольника VB
Создать программу, которая получает с клавиатуры числа x1, x2, х3, у1, у2, у3. Каждая пара соответствующих чисел (х, у) является координатами вершины треугольника. Программа должна проверить,...
VB Закрасить кратчайший путь выхода из лабиринта дан массив 10*10, элементы которого лэйблы белого цвета, при нажатии курсором на белый лэйбл он становиться синим (стеной). после заполнения лабиринта (т. е. создания стен) нажимаем на кнопку и... https://www.cyberforum.ru/ visual-basic/ thread685576.html
VB Какой язык изучать, желательно, не высокоуровневый https://www.cyberforum.ru/ visual-basic/ thread685485.html
Я решил заняться программированием. Читал в интернете, знакомый советует - начинай с visual basic. Ок. Скачал учебник Лукин С.Н. - Понятно о Visual Basic .NET. Cамоучитель (в 3-х томах) - 2005,...
VB Как работает JournalRecordProc и JournalPlaybackProc, в связке
всем привет) после оперативных и адекватных ответов на мой последний вопрос, решил испытать судьбу и вновь написать на этот замечательный форум(вдруг и с этим вы сталкивались). внимание вопрос):...
VB Найти произведение элементов последовательности Найти произведение: (1 + 1 /1^2)(1 + 1 / 2^2)...(1 + 1 / n^2). Подскажите где ошибка Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click Dim... https://www.cyberforum.ru/ visual-basic/ thread685310.html VB Вычислить значение выражения, не используя циклов Создать программу, которая получает с клавиатуры число х. Пользуясь только операциями умножения, сложения и вычитания, вычислить: 2х^4 - Зх^3 + 7х^2 - 5х + 6. Разрешается использовать не более... https://www.cyberforum.ru/ visual-basic/ thread685092.html
Автоподбор ширины и высоты ячеек Excel VB
Добрый день, возникла проблема с работой из VB в excel. Проблема в следующем: 1. Из VB создается документ excel затем из формы VB в excel передаються данные в определенные ячейки, данные по...
VB Падение программы при вызове функции из DLL Есть код на C++ #ifdef __WIN32__ #define MY_EXPORT __declspec(dllexport) #else #define MY_EXPORT #endif extern "C" MY_EXPORT char* getName(){ return (char*)"simple sample plugins"; https://www.cyberforum.ru/ visual-basic/ thread684992.html
0 / 0 / 0
Регистрация: 02.11.2012
Сообщений: 31
02.11.2012, 18:30 0

Из 10 введенных чисел возвести в квадрат отрицательные, а положительные суммировать - VB - Ответ 3644597

02.11.2012, 18:30. Показов 1328. Ответов 4
Метки (Все метки)

Ответ

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Dim A(1 To 10), I, X, Y, Z As Integer
For I = 1 To 10
A(I) = InputBox("Vvedi Chislo")
Next I
X = 0
Y = 0
Z = 0
For I = 1 To 10
If A(I) < 0 Then
X = A(I) * A(I)
Print X
X = 0
Else
Y = Y + A(I)
End If
Next I
Print Y
End


Вернуться к обсуждению:
Из 10 введенных чисел возвести в квадрат отрицательные, а положительные суммировать VB
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.11.2012, 18:30
Готовые ответы и решения:

Из трех введенных с клавиатуры чисел возвести в квадрат положительные, а отрицательные оставить без изменения
Составьте программу, которая из трех введенных с клавиатуры чисел возводит в квадрат положительные,...

Из трех введенных с клавиатуры чисел возвести в квадрат положительные
№6. Составьте программу, которая из трех введенных с клавиатуры чисел возводит в квадрат...

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

Возвести в квадрат отрицательные числа и в третью степень – положительные
4) Даны 3 целых числа Возвести в квадрат отрицательные числа и в третью степень – положительные (...

4
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
02.11.2012, 18:30

Удалить из списка отрицательные элементы, а положительные возвести в квадрат
Нужно написать программу, которая удаляет из списка отрицательные элемент,а а положительные...

Возвести в квадрат отрицательные числа и в третью степень — положительные
Даны три целых числа. Возвести в квадрат отрицательные числа и в третью степень — положительные...

Дана матрица A(n*m). Все отрицательные возвести в квадрат, а положительные в куб
Помогите пожалуйсто решить, но желательно в такой студенческой форме: #include &quot;stdafx.h&quot; ...

Как возвести в квадрат отрицательные числа и в третью степень положительные
Народ кто знает помогите. Дали задачи в технаре ... не могу решить. Аш инересно стало. Если не...

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