End Function

四、排序问题

1．选择法排序（升序）

基本思想：

1）对有n个数的序列（存放在数组a(n)中），从中选

出最小的数，与第1个数交换位置；

2）除第1 个数外，其余n-1个数中选最小的数，与

第2个数交换位置；

3）依次类推，选择了n-1次后，这个数列已按升序排

列。

程序代码如下：

For i = 1 To n - 1

imin = i

For j = i + 1 To n

If a(imin) > a(j) Then imin = j

Next j

t = a(i)

a(i) = a(imin)

a(imin) = t

Next I

五、查找问题

1．①顺序查找法（在一列数中查找某数x）

基本思想：一列数放在数组a(1)---a(n)中，待查找的数

放在x 中，把x与a数组中的元素从头到尾一一进行比较查找。用变量p表示a数组元素下标，p初值为1，使x与a(p)比较，如果x不等于a(p)，则使p=p+1，不断重复这个过程；一旦x等于a(p)则退出循环；另外，如果p大于数组长度，循环也应该停止。（这个过程可由下语句实现）

p = 1

Do While x <> a(p) And p < =n