3. PROGRAMA DE PRACTICA

  • numero dado por el usuario, donde genere la tabla de multiplicar de ese numero multiplicando del 1 al 100


1. planeacion:
*ingreso de numero por usuario
*resultado tabla de multiplicar de 1 a 100
*mostrar resultados en caja lixbox
*necesitamos de 3 comand , un lisbox y un label.
1.1 lista de chequeo
*declarar variables
*darles valor
*operar
*mostrar resultado.

2 interfaz grafica

3. programacion de eventos

necesitamos solo de dos variables, el codigo de esta aplicacion es muy corto porque utilizamos una sentencia for.



Dim a, c As Integer

Private Sub Command1_Click()
a = Val(Text1.Text)
For cont = 1 To 100
c= a * cont
List1.AddItem a & "*" & cont & "=" & c
Next
End Sub

Private Sub Command2_Click()
Text1.Text = ""
List1.Clear
Text1.SetFocus
End Sub

Private Sub Command3_Click()
End
End Sub

para borrar el listbox se utiliza list.clear.

1 comentario:

lebontiu dijo...

la verdad este si me sirbio de mucho ya nomas modifique algunas cosillas gracias y ojala y sigas mandandonos mas programas ya que nos son de gran utilidad gracias