Make your own free website on Tripod.com
-Cont.
Ir a listas parte 4
Parte III
El siguiente ejercicio nos permite, mediante un botón "Agregar" (btnagregar) poner en una lista (A) el texto escrito en un cuadro de texto (N). Otro botón que hemos llamado "Pasar" (btnpasar) coloca en una cuadro de texto los elementos de la lista de a uno. A medida que los pasa, los va borrando.
Private Sub btnagregar_Click()
A.AddItem N.Text
N.Text = ""
End Sub

Private Sub btnpasar_Click()
For I = 0 To A.ListCount - 1
pasar.Text = A.List(0)
Next
A.RemoveItem (0)
End Sub

En este ejercicio, un botón "Agregar"(btnagregar) nos permitirá agregar el elemento que se encuentra en la caja de texto (n) a la Lista A. El botón "Calcular" (btncalcular) nos dará resultados diversos en 5 cajas de texto a saber: "Total" (total), "Cantidad" (cant), "Promedio" (prom), "Máximo" (max) y "Mínimo" (min).
Private Sub btnagregar_Click()
A.AddItem n.Text
n.Text = ""
End Sub

'Para calcular la cantidad
Private Sub btncalcular_Click()
cant.Text = A.ListCount
'Para calcular el total
S = 0
For W = 0 To A.ListCount - 1
S = S + Val(A.List(W))
Next
Total.Text = S
'Para calcular el promedio
prom.Text = S / A.ListCount
'Para calcular el máximo
M = Val(A.List(0))
For I = 1 To A.ListCount - 1
If Val(A.List(I)) > M Then
M = Val(A.List(I))
End If
Next
max.Text = M
'Para calcular el mínimo
X = Val(A.List(0))
For I = 1 To A.ListCount - 1
If Val(A.List(I)) < X Then
X = Val(A.List(I))
End If
Next
min.Text = X
End Sub

El siguiente programa permite mediante el botón "Agregar"(btnagregar), colocar en la lista A los elementos escritos en la caja de texto T. Otro botón "Invertir" (btninvertir) coloca los elementos en la lista B, pero en orden inverso
Private Sub btnagregar_Click()
A.AddItem T.Text
T.Text = ""
End Sub

Private Sub btninvertir_Click()
For I = (A.ListCount - 1) To 0 Step -1
B.AddItem A.List(I)
Next
End Sub

Veamos un poco más de Listas
Volver a listas parte 2 ir a listas parte 4