Посчитать сумму модулей элементов векторов - VB
Формулировка задачи:
Сумма модулей элементов векторов F и G
Выражение: (x+y)/2
Выполнить двумя способами: используя подпрограмму-
функцию и подпрограмму процедуру
Решение задачи: «Посчитать сумму модулей элементов векторов»
textual
Листинг программы
Sub VectorSumm()
Cells.Clear
Dim s, i%, k, j%
s = Split(InputBox("Введите числа, разделённые пробелами", , "3.1 -0.1"))
ReDim F(UBound(s))
For i = 0 To UBound(s)
F(i) = Val(s(i))
Cells(i + 1, 1) = F(i)
Next
k = Split(InputBox("Введите числа, разделённые пробелами", , "-5.1 0.2 -0.3 0.4"))
ReDim G(UBound(k))
For j = 0 To UBound(k)
G(j) = Val(k(j))
Cells(5, j + 1) = G(j)
Next
t = 0
ReDim a(UBound(s), UBound(k))
For i = 0 To UBound(s)
For j = 0 To UBound(k)
a(i, j) = Abs(F(i)) + Abs(G(j))
t = t + 1
Next
Next
Cells(8, 1).Resize(i, j) = a
End Sub