Tabla de Multiplicar en Visual Basic 6.0

Con este codgo crearemos una tabla de multiplicar, es un codigo muy sencillo, realmente no se necesitan muchos conocimientos para hacer este sencillo programita, para esto utilizaremos 2 botones de comando ( o solo uno ya que solo en uno escribiremos el codigo para general la tabla), 2 etiquetas ( o una tambien como quieran, una etiqueta solo nos serviria para poner algo asi como “ingrese la tabla que quiere calcular”) y 1 cuadro de texto, que es de donde vamos a tomar el valor, aquí el codigo:

PLAIN TEXT
Visual Basic:
  1. Private Sub Command1_Click()
  2. a = 1
  3. R = 0
  4. Label2.Caption = ” “
  5. For a = 1 To 10
  6. Label2.Caption = Label2.Caption + Trim(Str(a)) + ” *” + Str(Text1.Text) + ” =” + Str(a * Text1.Text) + Chr(10) + Chr(13)
  7. Next a
  8. End Sub

Vota esta entrada: votar

Entradas Relacionadas

Únete a nuestro grupo de Facebook

Devblab en Facebook
Author: cuisi Comments: 15 comments Date: 10 Apr 2008
Categories: Visual Basic Tags:

There are 15 comments. Leave a comment!

  • ¬ cuisi
    #108 October 22nd, 2008 at 7:55 pm

    Viedo que esta es la entrada mas vista.. me pregunto si les ha servido el codigo?

  • ¬ sonny
    #1013 December 19th, 2008 at 2:49 pm

    ;) hola voy a hacerlo para ver si me compila bien gracias, y ahi doy mis comentarios :D

  • ¬ sonny
    #1014 December 19th, 2008 at 2:50 pm

    pero con todo gracias si me ha de servir de guia

  • ¬ cuisi
    #1015 December 19th, 2008 at 2:57 pm

    Que tal sonny, espero te sirva, la verdad a mi no me marco ningun error ;) , recuerdo que esto me lo dejaron en la escuela hace unos 3 años atras :mrgreen:

  • ¬ sonny
    #1362 December 24th, 2008 at 1:40 pm

    :) hola cuisi(no se como tratarme porque no se si eres hombre o mujer) pero te cuento este programa lo necesita mi hermana y yo como comedida le di consultando, pero me dijo que necesitaba que las tablas le desplegaran en un list box, nose si cambie mucho el codigo, yo se un poco de programacioón pero no lo he revisado por tiempo para ayudarle si puedes ayudame con ese dato si, gracias, :D

  • ¬ cuisi
    #1369 December 24th, 2008 at 2:52 pm

    Que tal sony, pues soy hombre pero pues asi me dice mi novia(cuisi :mrgreen: ) mira deja instalo el VB porque acabo de formatear la pc y posteo el codigo, la verdad pues no creo que cambie mucho el codigo, pero deja veo, sale?.. saludos

  • ¬ Rick4682010
    #2056 March 13th, 2009 at 11:46 am

    hola gracias cuisi si me sirvio de mucho buen aporte!!! oye cuisi te puedo formular una pregunta... tienes mail?

  • ¬ cuisi
    #2057 March 13th, 2009 at 12:53 pm

    Claro amigo puedes contactarme a devblab[arroba]gmail.com , Saludos

  • ¬ natu
    #2183 May 7th, 2009 at 9:50 am

    ola oie ese manual no funcionaaaaa!!!! que hago???

  • ¬ cuisi
    #2184 May 7th, 2009 at 10:53 am

    Aver natu, porque no te funciona? que es lo que haces?. Mira lo que pasa es que el codigo si funciona no se, explicame un poco mas que es lo que dice y que es lo que haces porfavor

  • ¬ mili
    #2218 May 29th, 2009 at 1:36 am

    hola por favor, tengo q hacer una tabla de multiplicar en visual basic, pero como ecien empiezo, no se q codigo hacer, desarrollar la tabla de multiplicar de un numero ingresado en un textbox.si pueden por favotr mandar a mi correo ,milagros_06@hotmail.com gracias desde ya

  • ¬ cuisi
    #2219 May 29th, 2009 at 11:41 am

    Pues este codigo que tengo aqui, ami me funciono... solo tienes que copiar el codigo... necesitas un commandbutton unas label y el textbox con la propiedad multilinea en tru(algo asi es multilinea creo). cual quier duda avisame... aunque tengo como 2 años despegado de la programacion en VB igual y me acuerdo :P saludos

  • ¬ Microbones
    #3302 May 3rd, 2010 at 4:04 am

    Imports System.Console

    Module Tarea
    Sub Main()
    Dim i As Integer
    Dim j As Integer
    Dim num As Integer
    Dim tabla() As Integer
    Dim aux As String
    Dim aux2 As String
    Dim resp As String
    Do
    Do
    Clear()
    Write("¿Cuantas Tablas de Multiplicar Desea Realizar? ")
    aux = ReadLine()
    Loop Until IsNumeric(aux)
    num = Val(aux)
    Dim top As Integer = 5
    For i = 0 To num - 1
    ReDim Preserve tabla(i + 1)
    Do
    Write("Ingrese el numero de la Tabla a Multiplicar: ")
    aux2 = ReadLine()
    Loop Until IsNumeric(aux2)
    tabla(i) = Val(aux2)
    For j = UBound(tabla) To 10
    SetCursorPosition(1, top)
    WriteLine(tabla(i) & " * " & j & " = " & (tabla(i) * j))
    top = top + 1
    Next
    Next
    WriteLine("Desea Salir de la Aplicacion? (S/N)")
    resp = ReadLine()
    Loop Until resp = "s"
    End
    End Sub
    End Module

  • ¬ Gloria
    #3649 June 29th, 2010 at 12:44 am

    hola pues solo queria que si me pudieras ayudar saliendo un poco de este tema de las tablas de multiplicar como es que se enlaza acces con visual basic 6 ya que tengo k hacer un proyecto con eso espero me puedas ayudar gracias

  • ¬ cuisi
    #3827 July 19th, 2010 at 3:10 am

    Hola amiga, mira tengo algo sin programar en Visual Basic, lo que recuerdo bien es que puedes enlazar Visual Basic 6 con Acces utilizando un Data Report(creo que así se llama),si no lo tienes activado lo puedes activar...mmm creo que esta en la sección de complementos.

    El data report cuenta con un asistente con el cual te puedes guiar para realizar la conexión.

    Saludos

Name (Req)

E-mail (Req)

URI

Message