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