Массив: В массиве найти числа, попадающие в указанный диапазон, и их сумму - VB

Формулировка задачи:

Задание: путём изменения вот этого:

Sub Lab1()
Dim m(1 To 10) As Integer
Randomize Timer
For i = 1 To 10
m(i) = Int(Rnd() * 100) + 1 - 50
Next i
 
Debug.Print "Исходный массив"
For i = 1 To 10
Debug.Print m(i);
Next i: Debug.Print: Debug.Print
 
Call obrabotka(m())
 
End Sub
Sub obrabotka(m1() As Integer)
min = 1000000000: k = 0
For i = 1 To 10
If m1(i) >= 0 And m1(i) < min Then
min = m1(i)
k = i
End If
Next i
Debug.Print "Min="; min, "k="; k
End Sub

Сделать вот это:

Спойлер

Заранее благодарю!

Решение задачи: «Массив: В массиве найти числа, попадающие в указанный диапазон, и их сумму»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Const n = 20
Dim a(n)
Print "исходный массив"
For i = 1 To n
   a(i) = Int(Rnd * 11) - 5
   Print a(i); "  ";
Next i
Print: Print
k = 0
For i = 1 To n
  If a(i) < 0 And Abs(a(i)) Mod 2 = 1 Then
     k = k + 1
     If k Mod 2 = 0 Then a(i) = a(i) * 3
  End If
Next i
 
Print "полученный массив"
For i = 1 To n
   Print a(i); "  ";
Next i
End Sub
                        