@Mari_Na

Даны два линейных массива с различным количеством эле-
ментов. Создайте приложение, в котором выводится содержимое,
среднее арифметическое и сумма элементов каждого массива. Нахож-
дение среднего арифметического и суммы элементов осуществите в
отдельных подпрограммах.



примерный вид,как должна быть оформлена задача:

Программный код с использованием процедуры типа Sub имеет следующий вид:
Private Sub Form_Load()
Dim A(3, 3) As Integer, S1 As Integer
Dim B(3, 3) As Integer, S2 As Integer
Show
For i = 0 To 3
For j = 0 To 3
A(i, j) = Int(Rnd * 20 – 10)
Picture1. Print A(i, j);
Next j
Picture1. Print
Next i
For i = 0 To 3
For j = 0 To 3
B(i, j) = Int(Rnd * 10 – 2)
Picture2. Print B(i, j);
Next j
Picture2. Print
Next i
SUMMA A, 3, 3, S1
SUMMA B, 3, 3, S2
Text1 = S1
Text2 = S2
End Sub
Sub SUMMA(A() As Integer, m As Integer, n As Integer, S As Integer)
S = 0
For i = 0 To m
For j = 0 To n
S = S + A(i, j)
Next j
Next i
End Sub

Программный код приложения с использованием процедуры
типа Function имеет следующий вид:

Private Sub Form_Load()
Dim A(3, 3) As Integer, S1 As Integer
Dim B(3, 3) As Integer, S2 As Integer
Show
For i = 0 To 3
For j = 0 To 3
A(i, j) = Int(Rnd * 20 – 10)
Picture1. Print A(i, j);
Next j
Picture1. Print
Next i
S1 = SUMMA(A, 3, 3)
For i = 0 To 3
For j = 0 To 3
B(i, j) = Int(Rnd * 10 – 2)
Picture2. Print B(i, j);
Next j
Picture2. Print
Next i
S2 = SUMMA(B, 3, 3)
Text1 = S1
Text2 = S2
End Sub
Function SUMMA(C, m, n)
SUMMA = 0
For i = 0 To m
For j = 0 To n
SUMMA = SUMMA + C(i, j)
Next j
Next i
End Function

Решить надо и через Sub и через Function
заранее огромное спасибо!!

0