中科新闻网兄弟连第五集剧评:请教VB编程的问题
来源：百度文库 编辑：中科新闻网 时间：2024/04/27 08:12:36
根据要求分别编两个过程：
(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 函数过程。
给你个冒泡的～
稍加修改就可以了
要自己动一下手，这样才能是自己的东西
Option Base 1
Private Sub Form_Click()
Dim aa(5) As Single
aa(1) = 1
aa(2) = 2
aa(3) = 3
aa(4) = 4
aa(5) = 5
Dim i As Single
Dim j As Single
Dim n As Single
'//冒泡发排序（由小到大）
If UBound(aa) > 1 Then
For i = 1 To UBound(aa) - 1
For j = i + 1 To UBound(aa)
If aa(i) > aa(j) Then
n = aa(i)
aa(i) = aa(j)
aa(j) = n
End If
Next j
Next i
Print "最大值为：" & aa(1)
Print "最小值为：" & aa(UBound(aa))
End If
End Sub