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)
Код: Выделить всё
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
Код: Выделить всё
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
Код: Выделить всё
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