VBA подмагните

[Angelholy]

Помогите или дайте ссылку де можно найти решение.
Дан массив А-массив обыкновенных дробей.Отсортировать его в
порядке возрастания. помогите.
Делается в Excele выводится там же.

[Ky3Heu,]

Не знаю, как там на VBA (книги нет под ругой), но алгоритм тот же, что и на Делфи.

procedure TForm1.Button1Click(Sender: TObject);
const
SIZE=5;
var
a:array[1..SIZE] of integer;
k:integer; // текущий элемент массива
i:integer; // индекс для ввода и вывода массива
changed:boolean; // TRUE, если в текущем цикле были обмены
buf:integer; // буфер для обмена элементами массива
begin
// ввод массива

for i:=1 to SIZE do
a[i] := StrToInt(StringGrid1.Cells[i-1, 0] );

label2.caption:='';
// сортировка массива
repeat
Changed:=FALSE; // пусть в текущем цикле нет обменов
  for k:=1 to SIZE-1 do
    if a[k] > a[k+1] then
    begin // обменяем k-й и k+1-й элементы
    buf := a[k];
    a[k] := a[k+1];
    a[k+1] := buf;
    changed := TRUE;
    end;
// вывод массива
  for i:=1 to SIZE do
  Label2.caption:=label2.caption+' '+IntTostr(a[i]);
  Label2.caption:=label2.caption+#13;
until not changed; // если не было обменов, значит
// массив отсортирован
Label2.caption:=label2.caption+#13+'Maccив отсортирован.';
end;

Дальше выводиш по ячейкам и все. Заполнять тоже можешь из ячеек.

[Angelholy]

Оо фига спс помог =)