עזרה עם פרוצדורה בVB [עם מערך]

[tsvika]

יש לי את הקוד הבא:

עכשיו במקום מספר 1 מתחילה הלולאה חיצונית K ובמקום 2 היא מסתיימת

בסוף הלולאה K (מקום מספר 2) אני רוצה לשנות ערך במערך שהוגדר למעלה, אבל הערך לא משתנה

לעומת זאת אם אני משנה אותו איפה שמוגדרים הערכים של המערך אז הוא משתנה

אז איך אני משנה אותו בתוך הפרוצדורה?

הקוד נועד למיין מערך של string-ים לפי הא"ב וכאשר נמצא הstring הכי "גדול" הוא מוכנס למערך אחר ונמחק מהמערך הראשון כדי שהקוד ימצא את הstring הכי "גדול" שאחריו אבל הבעיה שאני לא מצליח למחוק את הstring מהמערך הראשון אחרי שהוא מוכנס לשני

[Ghosthunter]

ראיתי שלא אכפת לך לשנות כל כך את המערך המקורי

dim i, j as integer
dim max as integer
dim tmp as string

for i=0 to N step 1

  max = 0  'Find Max String Position in the left(מה שנשאר) arr
  for j=1 to N-i step 1
    if arr[j]>arr[max] then
       max = j
    end if
  next j

  tmp = arr[N-i]  'Put the max string in the end(Like LP song :-))
  arr[N-i] = arr[max]
  arr[max] = tmp

next i

הנה

[tsvika]

לא הבנתי מה עשית ]=

אני רוצה שהפרוצדורה תמצא את הMAX, תשים אותו במערך אחר ותוציא אותו מהמערך הראשון כדי שהיא תוכל לחזור על עצמה ולמצוא את הערך המקסימלי הבא..

ואני לא מצליח להוציא אותו מהמערך הראשון

אבל שינית לי את הפרוצדורה לא הבנתי כלום ]=

[tsvika]

הסתדרתי לבד תודה למי שעזר

=]