Оператор цикла - VB

Узнай цену своей работы

Формулировка задачи:

Помогите пожалуйста доработать и исправить программу по задаче: Возвести в куб три первых отрицательных числа из столбца A. Новые значения чисел расположить справа от исходных. Sub Chikal_yslovie() Dim i As Integer, N As Integer, p As Integer i = 1 Do Until Cells(i, 4) = "" i = i - 1 Loop N = i + 1: i = N: p = 0 Do While p < 3 And i > 1 i = i + 1 If Cells(i, 4) < 0 Then Cells(i, 4) = Cells(i, 4) ^ 3 End If Loop End Sub

Решение задачи: «Оператор цикла»

textual
Листинг программы
Sub Chikal_yslovie()
Dim i As Integer, p As Integer
i = 1
Do While p < 3 And Cells(i, 1) <> ""
i = i + 1
If Cells(i, 1) < 0 Then
Cells(i, 2) = Cells(i, 1) ^ 3
p = p + 1
End If
i = i + 1
Loop
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

11   голосов , оценка 3.909 из 5
Похожие ответы