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

ID: 401284

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

Советник

378

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


ID: 259041

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

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

373

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


ID: 401888

puporev

Профессор

215

Россия, Пермский край


ID: 400669

epimkin

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

111


ID: 405338

vovaromanov.jr

1-й класс

105


ID: 242862

Hunter7007

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

29

Россия, Омск


ID: 137394

Megaloman

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

25

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


8.10.2

13.10.2021

JS: 2.10.2
CSS: 4.6.0
jQuery: 3.6.0
DataForLocalStorage: 2021-10-27 10:16:01-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

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

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

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

Gluck

9-й класс

Рейтинг: 81

Megaloman

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

Рейтинг: 25

solowey

Академик

Рейтинг: 3

Асмик Гаряка

Советник

Рейтинг: 0

Sergey V. Gornostaev

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

Рейтинг: 0

SFResid

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

Рейтинг: 0