Pages

viernes, 8 de febrero de 2013

Calcular la serie 1223334444… Codigo en Visual Basic - VB

Problema
Diseñar un algoritmo que muestre la siguiente serie 122333...NNNN.

Codigo Fuente en Visual Basic
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object,
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim cad = ""
        Dim n As Integer
        n = TextBox1.Text
        For y As Integer = 1 To n
            For w As Integer = 1 To y
                cad = cad + Trim(y)
            Next w
        Next y
        TextBox2.Text = cad
    End Sub
End Class

1 comentarios:

Unknown dijo...

me marca errores, lo copio tal cual como esta aqui pero me marca errores uno de ellos es Dim cad = ""

Publicar un comentario