Вычислить сумму элементов числового ряда

Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer
a = 17: b = -21: c = -1: d = -8
  If a <> min(min(a, b), min(c, d)) Then
     MsgBox "Правда", , "Правда ли, что первое число не самое маленькое?"
  Else
     MsgBox "Неправда", , "Правда ли, что первое число не самое маленькое?"
  End If
End Sub
Private Function min(pervoe As Integer, vtoroe As Integer)
    If pervoe < vtoroe Then min = pervoe Else min = vtoroe
End Function

Option Explicit
Dim i As Integer, m As Integer, n As Integer, Num As Integer
Dim a() As Integer
Private Sub Command1_Click()
Cls
n = InputBox("Колличество элементов?")
ReDim a(1 To n)
For i = 1 To n
 Randomize
 a(i) = Rnd * 20
 Print a(i) & " "
Next i
End Sub
 
Private Sub Command2_Click()
m = 0
 
For i = 1 To n
If a(i) Mod 2 = 0 Then
  If a(i) > m Then m = a(i): Num = i
  End If
Next i
If m = 0 Then
  Print "Нет чётных элементов!"
  Else
  Print "Номер наибольшего чётного:" & Num
  End If
End Sub

Option Explicit
Dim i As Integer, m As Integer, n As Integer, Num As Integer, k As Integer
Dim a() As Integer
Private Sub Command1_Click()
Cls
n = InputBox("Колличество элементов?")
ReDim a(1 To n)
For i = 1 To n
 Randomize
 a(i) = Rnd * 20
 Print a(i) & " "
Next i
End Sub
 
Private Sub Command2_Click()
k = 0
 
For i = 1 To n
If a(i) Mod 2 = 0 Then
  If a(i) > m Then m = a(i): Num = i: k = k + 1
  End If
Next i
If k = 0 Then
  Print "Нет чётных элементов!"
  Else
  Print "Номер наибольшего чётного:" & Num
  End If
End Sub