Оператор цикла - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д