Question

请教一个关于VB的问题

根据要求分别编两个过程：

(1) 编一个冒泡法排序子过程，对己知的若干个整数按递增次序排列。

[ 提示 ]

子过程形式为：

Sub Sortl(a%())

(2) 编一个二分法查找函数过程，查找某数，找到返回该数在数组中的下标位置，找不到值为 -1 。

函数过程形式为：

Function Searchl(a%() ， Key%) As Integer

a%() 为有序的数组， Key% 为要查找的某数。

主调程序可通过随机函数产生若干个数，先后调用 Sort1 子过程和 Search 函数过程。

Answer 1

Sub form_click()
Dim a(1 To 10)
For i = 1 To 10
a(i) = Rnd
Next
sortl a
End Sub
Sub sortl(a)
For i = 1 To 9
For j = i + 1 To 10
If a(j) < a(i) Then
t = a(i): a(i) = a(j): a(j) = t
End If
Next
Next
For i = 1 To 10
Print a(i);
Next i

End Sub