Массивы в Visual Basic.Дан одномерный массив А размерности N.Найти сумму положительных элементов и их количество.Буду очень благодарна

Public Class Form1     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click         Randomize()         TextBox1.Text = ""         Dim n As Integer = 10         Dim array(n) As Integer         Dim summa, number As Integer         Dim i As Integer         summa = 0         number = 0         For i = 1 To n Step 1             array(i) = Int((100 * Rnd()) + 1)             TextBox1.Text = TextBox1.Text & array(i) & "  "             If array(i) Mod 2 = 0 Then                 summa = summa + array(i)                 number = number + 1             End If         Next i         Label1.Text = "Сумма всех положитеьных чисел равна " & summa & ". И количество их равно " & number     End Sub End Class