Il compito è di caricare due array uno stringa l'altro numerico ordinare l'array numerico, quindi farlo corrispondere con le stringhe associate prima.
ordinare l'array numerico è fatto ma farlo corrispondere con l'array della stringa è impossibile almeno con questo codice:
Dim D As Integer
Dim ve(1 To 100) As String
Dim voto(1 To 100) As Variant
Public Sub Scambia(a, b As String)
Dim Temp As String
Temp = a
a = b
b = Temp
End Sub
Public Sub Sort(v() As String, D As Integer)
Dim i, j As Integer
For i = 1 To D - 1
For j = i + 1 To D
If v(i) > v(j) Then
Scambia v(i), v(j)
End If
Next j
Next i
End Sub
Private Sub CdmCarica_Click()
Do
D = InputBox("Inserisci dimensione", " Chiedi dimensione")
Loop Until D >= 1 And D <= 100
For i = 1 To D
ve(i) = InputBox("Inseririsci il " & CStr(i) & ". nome", "Inserisci")
voto(i) = InputBox("Inserisci voto", Val(i) & " Chiedi voto")
Next i
End Sub
Private Sub cmd_Click()
TxtLista.Text = ""
For i = 1 To D
TxtLista.Text = TxtLista.Text & CStr(ve(i)) & "; " & CStr(voto(i)) & vbCrLf
Next i
For i = 1 To D
Text1.Text = Text1.Text & Val(voto(i)) & vbCrLf
Next i
End Sub
Private Sub cmd1_Click()
End
End Sub
Private Sub cmd2_Click()
Sort ve(), D
End Sub
SPERO DI ESSERMI SPIEGATO. SO PERFETTAMENTE CHE IO NON MI SAREI CAPITO, MA SE QUALCUNO CI RIUSCISSE E AVESSE LA RISPOSTA A TALE PROBLEMA MI RISPONDA
SE QUESTA SPIEGAZIONE NON VI è BASTATA CHIEDETEMI PURE CHIARIMENTI