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