Лидеры рейтинга

ID: 405049

vsetin

Студент

2831


ID: 401284

Михаил Александров

Советник

907

Россия, Санкт-Петербург


ID: 226425

Konstantin Shvetski

Модератор

663

Россия, Северодвинск


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

381

Россия, пос. Теплоозёрск, ЕАО


ID: 400669

epimkin

Профессионал

351


ID: 325460

CradleA

Мастер-Эксперт

298

Беларусь, Минск


ID: 137394

Megaloman

Мастер-Эксперт

261

Беларусь, Гомель


8.9.0

20.06.2021

JS: 2.9.2
CSS: 4.5.10
jQuery: 3.6.0
DataForLocalStorage: 2021-06-22 16:46:03-standard


Создание программ на языке Basic.

Администратор раздела: Андреенков Владимир (Академик)

Консультация онлайн # 160085

Раздел: Basic
Автор вопроса: Грязнева Ольга Михайловна
Дата: 10.02.2009, 12:42 Консультация закрыта
Поступило ответов: 1

Помогите пожалуйста написать программу к задаче по VBA в Excel:
Написать программу в которой вводится натуральное число n, а затем последовательность из n чисел; определяется, есть ли в последовательности отрицательные числа, и выдается соответствующий ответ.

Ответ # 243354 от Megaloman
Здравствуйте, Грязнева Ольга Михайловна! Ответ в приложении.

Приложение:


Megaloman

Мастер-Эксперт
10.02.2009, 20:02
Мини-форум консультации # 160085
неизвестный

1

= общий =    11.02.2009, 15:11

Нужно чтоб последовательность выводилась в ячейки Excel спомощью Cell

q_id

Megaloman

Мастер-Эксперт

ID: 137394

2

= общий =    11.02.2009, 21:46

Для этого в предыдущий макрос добавил 4 строки. Всё, что Вы введёте и что получится запишется в таблицу. Вы умолчали, в каком виде выводить данные, надо ли делать какие-либо надписи.

Код
Dim N_El As Integer

Do While True
    
    TheTitle = "Ввод количества элементов последовательности"   ' Заголовок окна ввода
    ThePrompt = "Введите количество элементов ( >0)"            ' Приглашение в окне ввода
    TheReply = InputBox(ThePrompt, TheTitle)        ' Вызываем окно ввода данных
    L = TheReply = ""                               'True если нажали Cancel или не ввели данные
    If L Then Exit Do                               'если нажали Cancel покидаем цикл, а затем программу
    N_El = Val(TheReply)
    L = N_El <= 0                                   'True если число элементов <=0
    If L Then Exit Do                               'если число элементов <=0 покидаем цикл, а затем программу

    ReDim InMass(N_El - 1)
    
    Columns("A:C").ClearContents                     ' Очищаем колонки A:C
    Cells(1, 1) = N_El                               ' Заносим в A1 число элементов
     
    For i = 1 To N_El
        TheTitle = "Ввод " & CStr(N_El) & " элементов последовательности"
        ThePrompt = "Введите элемент № " & CStr(i)
        TheReply = InputBox(ThePrompt, TheTitle)    ' Вызываем окно ввода данных
        L = TheReply = ""                           'True если нажали Cancel или не ввели данное
        If L Then Exit For                          'если нажали Cancel покидаем цикл, а затем программу
        InMass(i - 1) = Val(TheReply)
        
        Cells(i, 2) = InMass(i - 1)                  ' Заносим в столбец B последовательность
    
    Next
    
    If L Then Exit Do                           'если нажали Cancel покидаем цикл, а затем программу
    
    Negativ = 0                                 ' подсчитаем число отриц элементов
    
    All_In = "В введённой последовательности " & CStr(N_El) + " чисел" & vbCrLf
    
    For i = 1 To N_El
        If InMass(i - 1) < 0 Then Negativ = Negativ + 1
        All_In = All_In + CStr(InMass(i - 1)) + " "          ' Формируем сообщениё для вывода
    Next
    
    Cells(1, 3) = "  Число отрицательных чисел = " + CStr(Negativ)
    
    All_In = All_In & vbCrLf & "Содержится " & CStr(Negativ) & " отрицательных чисел"
    i = MsgBox(All_In, vbOKCancel, "Результат анализа последовательности")
    If i = 2 Then Exit Do
    
Loop

=====
Нет времени на медленные танцы

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

Лучшие эксперты раздела

Megaloman

Мастер-Эксперт

Рейтинг: 261

solowey

Академик

Рейтинг: 105

SFResid

Мастер-Эксперт

Рейтинг: 2

Асмик Гаряка

Советник

Рейтинг: 0

Sergey V. Gornostaev

Профессионал

Рейтинг: 0

Роман Селиверстов

Советник

Рейтинг: 0