高考问答大厂潮白家园:请教一个关于VB的问题
来源：百度文库 编辑：高考问答 时间：2024/04/27 23:24:08
根据要求分别编两个过程：
(1) 编一个冒泡法排序子过程，对己知的若干个整数按递增次序排列。
[ 提示 ]
子过程形式为：
Sub Sortl(a%())
(2) 编一个二分法查找函数过程，查找某数，找到返回该数在数组中的下标位置，找不到值为 -1 。
函数过程形式为：
Function Searchl(a%() ， Key%) As Integer
a%() 为有序的数组， Key% 为要查找的某数。
主调程序可通过随机函数产生若干个数，先后调用 Sort1 子过程和 Search 函数过程。
(1) 编一个冒泡法排序子过程，对己知的若干个整数按递增次序排列。
[ 提示 ]
子过程形式为：
Sub Sortl(a%())
(2) 编一个二分法查找函数过程，查找某数，找到返回该数在数组中的下标位置，找不到值为 -1 。
函数过程形式为：
Function Searchl(a%() ， Key%) As Integer
a%() 为有序的数组， Key% 为要查找的某数。
主调程序可通过随机函数产生若干个数，先后调用 Sort1 子过程和 Search 函数过程。
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