עכשיו יש כמה דרכים, אתה יכול להשתמש בפקד שנקרא ListView שיש לו פעולת מיון בתוך עצמו או להשתמש בקוד מיון בסיסי (אין כאן צורך ביעילות אז אתה יכול להשתמש בקוד הפשוט הבא שאני ארשום לך)להלן קוד המיון:
Const NumWinners=10
Dim Winners(NumWinners) as Integer
Dim C1 as Integer
Dim C2 as Integer
Dim TempInt as IntegerFor C1=1 to (NumWinners-1) For C2=C1+1 To NumWinners
If Winners(C2)>Winners(C1) Then
TempInt=Winners(C1)
Winners(C1)=Winners(C2)
Winners(C2)=TempInt
End If
Next C2 Next C1
|
מקווה שהבנת את הקוד אם לא תגיד ואני אסביר קצת יותר
גירסת הדפסה
סגן המנהל
מפקח
Winner
צל"ש
מומחה
