haremos un programa de acuerdo alos vectores, al tema anterior

donde mostremos una pantalla que llebe 3 botones de comando y agregaremos otro formulario donde se vean los datos y 1 boton de comando que me regrese

ok la codificacion que se mostrara en el primer formulario en introducir datos debe ser la siguiente:

Dim I As Integer
Dim YO(10) As String
Private Sub Command1_Click()
For I = 1 To 10
YO(I) = InputBox("Teclee el valor del nombre", "datos")
Next I
End Sub

y en el boton mostrar datos la codificacion es:

Private Sub Command2_Click()
For I = 1 To 10
Form2.List1.AddItem YO(I)
Next I
Form2.Show
Form1.Hide

el boton salir pues END

en el segundo formulario debemos ingresar un listbox y un boton de comando que diga regresar

ok en este solo modificaremos el boton regresar con lo siguientes codigos:

Form1.show

form2.hide

al ejecutar el programa el resultado debe ser el siguiente, despues de ingresar los nombres:

Ver videotutorial

Elaborar un programa por dos formularios es desir:

en el primero pondremos datosa in troducir y y el segundo nos debe mostrar los datos que introducimos en el primero para eso hare lo siguiente:

Ve videotutorial:

hare 5 etiquetas , 5 text y 2 botones de comando lo cual mi pantalla de formulario quedara de la siguiente manera:

bueno entonces en la codificacion solo en el boton calcular ingrese lo siguiente:

text2= (val(Text1)*15)/100

text3=val(Text1)+val(Text2)

text5= val(Text4) - val(Text3)

de tal manera que al ejecutar nuestro programa eh introducir en text1 el valor de la mercancia y en el text4 cuanto esta pagando el cliente me debe quedar de la siguiente manera:

Ver videotutorial:

La presion, volumen y temperatura de una masa de aire se relaciona por la formula, masa = presion * volumen/ o.37 * (temperatura + 460).