Вычислить сумму квадратов всех элементов массива и корень квадратный этой суммы.

Sub Bbod()
mass = ""
Dim A(1 To 3, 1 To 3) As Long
For i = 1 To 3
For j = 1 To 3
A(i, j) = InputBox("введите элемент массива", "введите элемент массива")
mass = mass & A(i, j) & " "
Next j
mass = mass & vbCrLf
Next i
MsgBox mass
 
summ = 0
For i = 1 To 3
For j = 1 To 3
summ = summ + A(i, j) ^ 2
Next j
Next i
kor = Sqr(summ)
MsgBox "сумма элементов:" & summ
MsgBox "квадратный корень =" & kor
 
End Sub

[BASIC]Option Explicit
 
Dim A(1 To 3, 1 To 3) As Long
Dim I, J
Dim mass
 
Sub Программа()
Bbod
Solution
Result
End Sub
 
Sub Bbod()
mass = ""
For I = 1 To 3
For J = 1 To 3
A(I, J) = InputBox("введите элемент массива", "введите элемент массива")
mass = mass & A(I, J) & " "
Next J
mass = mass & vbCrLf
Next I
MsgBox mass
 End Sub
 
Sub Solution()
summ = 0
For I = 1 To 3
For J = 1 To 3
summ = summ + A(I, J) ^ 2
Next J
Next I
kor = Sqr(summ)
 End Sub
 
Sub Result()
MsgBox "сумма элементов:" & summ
MsgBox "квадратный корень =" & kor
 
End Sub
[/BASIC]