Ciao a tutti, sono un neo-utente che da poco si è avvicinato a questo linguaggio di programmazione e come tutti i neofiti ho bisogno di aiuto...
Il quesito che ho da porvi è il seguente, ho creato un'array contenente dei nomi ed ora dovrei ordinarlo alfabeticamente solo che non funziona (ovvio se no non sarei qui). Questo è il mio script:
<%
Dim aA(9), vC, lFinito
vC = 0
lFinito = false
for i = 0 to uBound(aA)
select case i
case 0
aA(i) = "Fabio"
case 1
aA(i) = "Bruno"
case 2
aA(i) = "Cristina"
case 3
aA(i) = "Pericoli"
case 4
aA(i) = "Angelo"
case 5
aA(i) = "Enzo"
case 6
aA(i) = "Massimo"
case 7
aA(i) = "Davide"
case 8
aA(i) = "Luca"
case 9
aA(i) = "Paolo"
end select
next
while not lFinito
for i = 0 to uBound(aA)
if aA(i) > aA(i + 1) then
vC = aA(i)
aA(i) = aA(i + 1)
aA(i + 1) = vC
lFinito = false
end if
next
wend
for i = 0 to uBound(aA)
response.write(aA(i))
response.write("
")
next
%>
Ringrazio anticipatamente tutti coloro che eventualmente risponderanno
P.S. Chiedo scusa per il precedente subject, spero che così sia appropriato
Rispondi quotando
