Pages

jueves, 7 de febrero de 2013

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

0 comentarios:

Publicar un comentario