Vb

[spider10]

Ciao a tutti
a scuola mi hanno dato questo codice da capire l'uso dei file.
Però non riesco a capire cosa fa la prima parte del codice.

Private Type studente
nominativo As String * 25
età As Integer
End Type

Dim n, filenum As Integer
Dim alunno As studente
Dim vettore(1 To 100) As studente

Private Sub cmdesegui_Click()
Dim i As Integer

filenum = FreeFile
Open app.Path & "\studenti.dat" For Input As filenum


i = 1
Do
Input #1, alunno.nominativo, alunno.età
vettore(i).nominativo = alunno.nominativo
vettore(i).età = alunno.età
i = i + 1
Loop Until (i > 20) Or (EOF(filenum))
Close #1
n = i - 1
Call ordina(vettore, n)
i = 0
For i = 1 To n
Txttabella.Text = Txttabella.Text & vettore(i).nominativo & vettore(i).età & vbCrLf
Next i

Open app.Path & "\studenti2.dat" For Output As filenum

For i = 1 To n
alunno.nominativo = vettore(i).nominativo
alunno.età = vettore(i).età
Write #filenum, alunno.nominativo, alunno.età
Next i
Close #filenum
End Sub


Private Sub ordina(ByRef v() As studente, ByVal k As Integer)
Dim i As Integer
Dim app As studente
Dim ordinato As Boolean

Do
ordinato = True
For i = 1 To k - 1
If v(i).età > v(i + 1).età Then
app = v(i)
v(i) = v(i + 1)
v(i + 1) = app
ordinato = False
End If
Next i
Loop Until ordinato
End Sub


Grazie per l'aiuto

[alka]

Ho già spostato questa discussione che hai aperto giorni fa, suggerendoti di postare nell'area corretta, di utilizzare titoli consoni e di seguire in generale le indicazioni del Regolamento, ma a quanto pare il messaggio non è stato recepito.

Infine, per comprendere un listato è sufficiente prendere la documentazione del linguaggio e verificare il comportamento delle istruzioni e delle funzioni richiamate al suo interno, nulla di più. Il forum non è un "servizio di interpretariato", quindi in caso di difficoltà poni domande in modo più preciso e specifico.