Статистика
Всего в нашей базе более 4 327 051 вопросов и 6 446 066 ответов!

Помогите пожалуйста срочно: 11 вариант, нужно сделать в visual basic и после составить блок схему в Microsoft Excel

10-11 класс

юкси4 10 июля 2013 г., 5:35:44 (7 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
Leka455677
10 июля 2013 г., 6:56:12 (7 лет назад)

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" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.