beats耳机怎么看电量:请教VB编程的问题
来源:百度文库 编辑:高校问答 时间:2024/10/05 10:31:35
根据要求分别编两个过程:
(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