【正文】
Text1 = Text1 amp。 Str(a(i)) Next i 39。st = 39。位置錯 For i = 1 To n 1 Call maxv(a, mv, mp) For j = mp To UBound(a) 1 39。err To n 1 a(j) = a(j + 1) Next j ReDim Preserve a(UBound(a) 1) 39。err 無Preserve For j = 1 To UBound(a) st = st amp。 Str(a(j)) Next j st st = Next iEnd SubPrivate