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
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.