Словесное описание алгоритмов

[Катя777]

Здрасвтвуйте форум. У меня есть несколько решений задач в VBA , но мне нужно их словесное объяснение, чтобы можно было объяснить другому человеку. Надеюсь на вашу помощь.

1. http://clip2net.com/page/m0/2985442

Код: Выделить всё

n=InputBox("введите n")
res = 0
for i = 1 to n
res = res+i^2
next i
MsgBox(res)

2. Все компоненты целочисленного вектора a с нечетными номерами заменить на величину ai+i.

Код: Выделить всё

n=InputBox("Введите длину вектора n")
Dim vec(1 to n) as Variant
for i = 1 to n
vec(i) = InputBox("Введите " & i & "-ю координату вектора")
Next i
For i = 1 to ubound(vec)
vec(i) = vec(i)+i
i = i + 1
next i

3. Получить матрицу, симметричную относительно побочной диагонали из заданной квадратной матрицы размерности N.

Код: Выделить всё

Sub zadacha3() 'матрица находится в книге на листе1, начиная с ячейки А1
n = InputBox("введите n - размерность матрицы")
For i = 2 To n
For j = n - i + 2 To n
temp = Cells(i, j).Value
Cells(i, j).Value = Cells(n - j + 1, n - i + 1).Value
Cells(n - j + 1, n - i + 1).Value = temp
Next j
Next i
End Sub

4.Подсчитать количество гласных букв в заданном слове.

Код: Выделить всё

Sub zadacha3() 'матрица находится в книге на листе1, начиная с ячейки А1
n = InputBox("введите n - размерность матрицы")
For i = 2 To n
For j = n - i + 2 To n
temp = Cells(i, j).Value
Cells(i, j).Value = Cells(n - j + 1, n - i + 1).Value
Cells(n - j + 1, n - i + 1).Value = temp
Next j
Next i
End Sub