請教氣泡排序法

LK85230

我需要用VB做出能任意排序5個數字的簡易程式
但參考完資料後還是沒頭緒
請問有人有範例可供參考嗎

紅塵孤鳥

用C＋＋的寫法如下，VB跟C＋＋的差異不大，或許你可以參考一下...

#include "stdafx.h"
#include <iostream>
using namespace System;

void main()
{
    int Value[5];
int Data, Index, Max, Temp;

std::cout<<"請輸入五個數字"<<std::endl;
//連續輸入五個數字迴圈
for(Index=0; Index<=4;Index++)
  {
   std::cin >> Data;
   Value[Index] = Data;
  }
//將輸入的五個數字從陣列中讀出
for(int Index=0;Index<=4;Index++)
  {
   std::cout<<"你輸入的第"<<Index+1<<"是："<<Value[Index]<<std::endl;
  }
//使用氣泡排序法排出大小
for(int i=0; i<=4; i++)
  {
   for(int k=i;k<5;k++)
    {
     if(Value[i] > Value[k])
      {
       Temp = Value[i];
       Value[i] = Value[k];
       Value[k] = Temp;
      }
    }
  }
//讀出排序後的順序
for(int i=0;i<5;i++)
  {
   std::cout << Value[i] << " " << std::endl;
  }

    system("pause");
}