Compito in classe

valy 28/01/2004 Difficoltà: Principiante

A scuola mi hanno dato da fare un form nel quale inserisco dei dati ad esempio dei nomi e poi li scorro in ordine alfabetico.
Mi spiego meglio, io non li inserisco in ordine alfabetico ma quando li immetto loro si imettono nella posizione giusta.
Naturalmente non conosco tanti comandi...quindi non posso mettere comandi a me sconosciuti...altrimenti si capisce!!!1
questo è quello che ho scritto:
Private Type archivio
nome As String
indirizzo As String
localita As String
provincia As String
successivo As Integer
precedente As Integer
corrente As Integer

End Type

Dim persona(10) As archivio

Dim i As Integer
Dim num As Integer

Private Sub Command3_Click()
num = num + 1
persona(num).corrente = num
persona(num).successivo = num + 1
If num > 2 Then
persona(num).precedente = num - 1
End If
For i = 0 To 10
If num > 1 Then
If Text1.Text < persona(persona(num).precedente).nome Then
persona(persona(num).corrente).nome = persona(num).nome
persona(num).nome = Text1.Text
num = num - 1
Else
persona(persona(num).corrente).nome = Text1.Text
End If
Next i
num = persona(num).corrente

End Sub


Vi prego...non voglio prendere 3!!!!!
non posso usare database...

R: > A scuola mi hanno dato da fare un form nel quale ...	Baro	29/01/2004