Desarrollo Organizacional

Private Type conjunto
libros As String
nombre As String
editorial As String
precio As String

End Type
Dim posicion As Integer
Dim w(15) As conjunto
Dimdeten As conjunto
Dim posicion As Integer

Private Sub Command1_Click()
opcion = Val(Text6.Text)
Select Case opcion
Case 1
capturar
Case 2
listar
Case 3ordenar
End
End Select
End Sub

Private Function capturar()
w(poc).nombre = Text1.Text
w(poc).editorial = Text2.Text
w(poc).precio = Text3.Text

End FunctionPrivate Function listar()
Dim x As Integer
For x = 0 To 4
List1.AddItem w(poc).nombre & w(x).nombre
List2.AddItem w(poc).editorial & w(x).editorialList3.AddItem w(poc).precio & w(x).precio
Next
End Function

Private Sub Command3_Click()
Dim selec As String
selec = (Text6.Text)
Select Case selec
Case "N"ordenanombre
Case "D"
ordenadireccion
Case "E"
ordenaedad
End Select
Label5.Caption = ""
Label6.Caption = ""
Label7.Caption = ""
Label8.Caption = ""
listar
End SubPrivate Sub Command2_Click()

List1.AddItem w(n).nombre & w(n).editorial & w(n).precio
Next
End Sub
f(poc).posicio = Val(Text4.Text - 1)
End Sub

PrivateFunction ordenanombre()
Dim z As Integer
For y = 0 To 5
For z = 0 To 3
If w(z).nom > w(z + 1).nombre Then
deten = registros(z)
registros(z) = registros(z + 1)registros(z + 1) = deten
End If
Next
Next
End Function

Private Function ordeneditorial()
Dim y As Integer
Dim z As Integer
For y = 0 To 5
For z = 0 To 3
Ifw(z).edad > w(z + 1).editorial Then
deten = w(z)
w(z) = w(z + 1)
w(z + 1) = deten
End If
Next
Next
End Function

Private Sub Command3_Click()

End Sub