VB中数组的排序两方法

在进行工业计算时，通常会遇到递增或递减排序，这里介绍两种VB排序的方法，分别为选择法和冒泡法，具体步骤如下（以大小为10的数组为例）,给出了两种直接调用的程序代码，以方便参考使用。
1.选择法排序
static A(1 to 10) as integer
   n=10
   m1 $=“请输入排序数”
   m2 $="输入对话框"
   for i = 1 to n
      A(i)=inputbox(m1 $,m2 $)
   next i
   for i = 1 to n-1
      m=i
      for j = i+1 to n
         if A(j)<A(m) then m=j
      next j
      t=a(i):a(i)=a(m):a(m)=t
   next i
   Print

2.冒泡法排序
static A(1 to 10) as integer
   n=10
   m1 $=“请输入排序数”
   m2 $="输入对话框"
   for i = 1 to 10
      N(i)=inputbox(m1 $,m2 $)
   next i
   for i = 10 to 2 step -1
      for j = 1 to i-1
         if N(j)>n(j+1) then
             t=n(j+1):n(j+1)=n(j):n(j)=t
         end if
      next j
   next i
Print

晗晗制作，谢谢阅读。