Вычислить квадратный корень из суммы квадратов четных элементов в визуал-бейсике.

Sub Main()
        Dim a(10) As Integer
        Dim c As Integer
        Dim R As Random = New Random(100)
        For i As Integer = 0 To 10
            a(i) = R.Next(10)
            Console.WriteLine("[" + i.ToString() + "] => " + a(i).ToString())
        Next
        For i As Integer = 0 To 10
            If (a(i) Mod 2 = 0) Then
                c = c + a(i) ^ 2
            End If
        Next
        Console.WriteLine(Math.Sqrt(c))
        Console.Read()
    End Sub

На .NET'oвском =)