Контрольная работа: Решение задач с помощью задания формул и создания макросов

End Sub

Private Sub CommandButton2_Click()

Unload Me

End Sub

Задача 2

Нормировать вектор и найти его длину. Формула

Способ 1.

Решим данную задачу с помощью задания формул и создания макросов.

Sub Макрос1()

'' Макрос1 Макрос

' Макрос записан 06.12.2009 '

Range("A1").Select

ActiveCell.FormulaR1C1 = "=INT(10*слчис()-4)"

Range("A1").Select

ActiveCell.FormulaR1C1 = "=INT(10*RAND()-2)"

Selection.AutoFill Destination:=Range("A1:E1"), Type:=xlFillDefault

Range("A1:E1").Select

ActiveCell.FormulaR1C1 = _

"=SQRT(R[-1]C^2+R[-1]C[1]^2+R[-1]C[2]^2+R[-1]C[3]^2+R[-1]C[4]^2)"

Range("A3").Select

ActiveCell.FormulaR1C1 = "=R[-2]C/R[-1]C"

Selection.AutoFill Destination:=Range("A3:E3"), Type:=xlFillDefault

Range("A3:E3").Select

Range("A3").Select

ActiveCell.FormulaR1C1 = "=R[-2]C/R[-1]C1"

Selection.AutoFill Destination:=Range("A3:E3"), Type:=xlFillDefault