Написать словесные алгоритмы к данным программам, ! private sub commandbutton1_click() 'объявление переменных dim a as integer, s as integer 'ввод исходных данных a = val(cells(2, 2).value) s = 0 i = 0 'рассчет while s < a s = s + 1 i = i + 1 'вывод результатов cells(i + 1, 1).value = str(s) wend end sub private sub commandbutton1_click() 'объявление переменных dim r2 as single, r3 as single dim r1beg as single, r1end as single, dr1 as single dim r12 as single, r13 as single, r23 as single 'ввод исходных данных r2 = val(cells(3, 1).value) r3 = val(cells(3, 2).value) r1beg = val(cells(3, 3).value) r1end = val(cells(3, 4).value) dr1 = val(cells(3, 5).value) 'расчет numrow = 6 for r1 = r1beg to r1end step dr1 r12 = r1 + r2 + (r1 * r2 / r3) r13 = r1 + r3 + (r1 * r3 / r2) r23 = r2 + r3 + (r2 * r3 / r1) cells(numrow, 1).value = str(r1) cells(numrow, 2).value = str(r12) cells(numrow, 3).value = str(r13) cells(numrow, 4).value = str(r23) numrow = numrow + 1 next r1 end sub private sub commandbutton2_click() for i = 1 to 5 cells(3, i).value = "" next i for j = 6 to 16 cells(j, 1).value = "" next j for k = 6 to 16 cells(k, 2).value = "" next k for a = 6 to 16 cells(a, 3).value = "" next a for b = 6 to 16 cells(b, 4).value = "" next b end sub

Программа 1 Создаётся обработка нажатия кнопки Объявляется переменная A и S типа int A присваивается значение 2 строки 2 столбца из таблицы Excel S и  i приравниваются к нулю Цикл до тех пор, пока S не будет больше A, в котором выполняется прибавление единицы к S и i Также в цикле происходит заполнение i + 1 строки 1 столбца.Программа 2Создаётся обработка нажатия кнопкиОбъявляется R2, R3, R1beg, R2End, dR1, R12, R13, R23 типа float R2 парсит значение из ячейки 3 строки 1 столбца (Val(), скорее всего, примерная аналогия к TryParse()) R3 парсит значение 3 строки 2 столбца R1beg 3 строки 3 столбцаR1End 3 строки 4 столбцаdR1 3 строки 5 столбца Значению NumRow присваивается 6Создаётся цикл: R1 = R1beg с условием, пока R1 не будет меньше или равен R1End, при этом каждую итерацию происходит добавление dR1 к R1 В этом цикле R12 присваивается значение R1 + R2 + (R1 * R2 / (double)R3), причём R3 явно приводится к типу doubleТак же происходит и с R13, которому присваивается R1 + R3 + (R1 * R3 / (double)R2)Так же происходит и с R23, которому присваивается R2 + R3 + (R2 * R3 / (double)R1)Поочередно в ячейки NumRow строки 1-4 (с первого по четвёртый) столбца заносятся приведённые к строке значения R1, R12, R13, R23, после чего к NumRow добавляется единица.Программа 3Создаётся цикл, где i = 1 с условием i меньше или равно 5, i с каждой итерацией прибавляет к себе единицуБерётся значение ячейки 3 строки i столбца и приравнивается к пустой строке ("")Создаётся цикл, где j = 6 с условием j меньше или равно 16, j с каждой итерацией прибавляет к себе единицуБерётся значение ячейки j строки 1 столбца и приравнивается к пустой строке ("")Создаётся цикл, где k = 6 с условием k меньше или равно 16, k с каждой итерацией прибавляет к себе единицуБерётся значение ячейки k строки 2 столбца и приравнивается к пустой строке ("")Создаётся цикл, где A = 6 с условием A меньше или равно 16, A с каждой итерацией прибавляет к себе единицуБерётся значение ячейки A строки 3 столбца и приравнивается к пустой строке ("")Создаётся цикл, где b = 6 с условием b меньше или равно 16, b с каждой итерацией прибавляет к себе единицуБерётся значение ячейки b строки 4 столбца и приравнивается к пустой строке ("")