Hack x Crack - Comunidad de Seguridad informática

Programación => Visual Basic => Mensaje iniciado por: SMS en Agosto 26, 2013, 12:05:42 pm

Título: [Visual basic .net] Tabla de multiplicar(Codigo fuente)
Publicado por: SMS en Agosto 26, 2013, 12:05:42 pm
Bueno pues aqui voy a poner el codigo fuente de un programa por consola que se ejecuta en el form load...

Código: [Seleccionar]
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim intcuenta As Integer
        Dim intTabla As Integer
        Debug.Print("La tabla de multiplicar")
        intTabla = 5
        For intcuenta = 1 To 10
            Debug.Print(intcuenta * intTabla)
        Next
        Debug.Print("Tabla de multiplicar del numero:" + Str(intTabla))
        For intcuenta = 1 To 10
            Debug.Print(Str(intTabla) + " X" + Str(intcuenta) + "=" + Str(intcuenta * intTabla))
        Next
        Debug.Print("Tabla de Multiplicar Descendente del Numero:" + Str(intTabla))
        For intcuenta = 10 To 1 Step -1
            Debug.Print(Str(intTabla) + " X" + Str(intcuenta) + "=" + Str(intcuenta * intTabla))
        Next
        Debug.Print("Numeros pares hasta el 10")
        For intcuenta = 2 To 10 Step 2
            Debug.Print(intcuenta)
        Next
        Debug.Print("Numeros impares hasta el 9")
        For intcuenta = 1 To 10 Step 2
            Debug.Print(intcuenta)
        Next
    End Sub
Bastante sencillo pero tengo una duda... ¿se puede hacer este programa de alguna manera mas corta? sin usar clases ni apis... ¿?

Saludos :P
Título: Re:[Visual basic .net] Tabla de multiplicar(Codigo fuente)
Publicado por: @NetFcruz en Septiembre 06, 2013, 05:32:15 pm
Muy bien gracias por el aprote man.