сервис вопросов и ответовПомогите пожалуйста срочно: 11 вариант, нужно сделать в visual basic и после составить блок схему в Microsoft Excel
10-11 класс|
|
Прикрепленные изображения
юкси4
10 июля 2013 г., 5:35:44 (10 лет назад)
Leka455677
10 июля 2013 г., 6:56:12 (10 лет назад)
Sub xxx()
Dim C(1 To 10) As Integer
Dim i As Integer
Dim s As Long
Dim IsNegative As Boolean
IsNegative = False
For i = 1 To 10
C(i) = InputBox("Введите " + Str(i) + "-й элемент массива")
If C(i) < 0 Then IsNegative = True
Next i
s = 0
If IsNegative Then
For i = 1 To 10
s = s + C(i) ^ 2
Next i
Else
For i = 1 To 10
s = s + C(i)
Next i
End If
MsgBox ("Результат: " + Str(s))
End Sub
Ответить
Другие вопросы из категории
Какой формат имеет файл с расширением com?
а)текстовый б)архив в)графический г) исполняемый д)правильного ответа нет ж)аудио
ГДЕ ОШИБКА??СКАЖИТЕ ПОЖАЛУЙСТА
ЗАДАНИЕ:ВЫЧИСЛИТЬ СУММУ ПЕРВЫХ 13 НАТУРАЛЬНЫХ ЧИСЕЛ КРАТНЫХ 5
Читайте также
Помогите составить блок-схему алгоритма и программу на алгоритмическом языке программирования БЕЙСИК обработки одномерного массива.Заполнение массива
элементами организовать путем ввода с клавиатуры.В одномерном массиве из N чисел вывести на экран отрицательные элементы и сообщите об их количестве.Пожалуйста,срочно надо.
Нужно составить блок-схему алгоритма подготовки к сдаче к экзамену.
Я не могу сочинить этот "алгоритм", помогите ;)
Блок-схемы строить не надо, просто описать, что надо делать.
Помогите, пожалуйста, составить алгоритм для следующей задачи: Вводятся четыре числа. Известно, что 3 из них равны, а 4-ое отличается от 3-ех других.
Нужно выдать число, которое отличается от других равных, при этом, используя ровно две операции сравнения. Я пытался решить эту задачу и через максимум-минимум, и через условия, но везде натыкался на грабли. Помогите, пожалуйста, разобраться. Заранее благодарю! Перед выставлением решения, рассмотрите следующие варианты: "2 4 4 4", "2 3 2 2 ", "-3 -3 -2 -3", "-4 -4 -4 -5".
Ребята, пожалуйста, помогите мне. Нужно сделать так, чтобы программы выделала имена, которые начинаются на большую букву и заканчиваются ласково на
"чка" (т е Леночка и т д) Нажмите альт и F11
ПОЖАЛУЙСТА ПОМОГИТЕ
и объясните как вы это сделали
п с имена придумывала не я, у нас пошлый учитель
Вы находитесь на странице вопроса "Помогите пожалуйста срочно: 11 вариант, нужно сделать в visual basic и после составить блок схему в Microsoft Excel", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.