Calcular el cuadrado de los elementos pares de un arreglo Codigo en Visual Basic

Problema
Diseñar un algoritmo que registre 30 números en un array de una dimensión y que muestre el cuadrado de los números registrados en las posiciones pares.

Codigo Fuente en Visual Basic

Public Class Form1
    Dim cont As Integer = 0
    Dim A(29) As Integer
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim n As Integer
        Dim cad As String = ""
        If (cont < 30) Then
            n = TextBox1.Text
            A(cont) = n
            Label4.Text = "Elemento " + Trim(cont + 1)
        Else
            Button1.Text = "Calcular"
            For q As Integer = 0 To 29
                If (q Mod 2 <> 0) Then
                    cad = cad + "  " + Trim(Math.Pow(A(q), 2))
                End If
            Next q
            TextBox2.Text = cad
        End If
        cont = cont + 1
    End Sub
End Class

 Descargar Proyecto Visual Basic