VB用自定义函数实现给数组排序(选择法)急求！！

如题所述

推荐答案 2017-01-10

dim i as integer,j as integer, a(1 to 100) as integer , n as integer,tmp as integer
'先给数组赋值，假设有100个数
for i=1 to 99
n=i
for j=i+1 to 100
if a(j)<a(n) then n=j '找出从第i个数到第100个数中最小的一个的序号
next j
tmp=a(i): a(i)=a(n): a(n)=tmp '将最小的数与第i个数换位
next i

温馨提示：答案为网友推荐，仅供参考

当前网址：http://66.wendadaohang.com/zd/n9UsnsvUxx2sxiivpii.html

相似回答

VB选择法排序答：To 10 直到比较到最后一位 i=2 时也是如此循环9次就完成排序5 3 2 7 i=1 时 J=2时 3 5 2 7 J=3时 2 5 3 7 j=4时 2 5 3 7 I=2时 j=3时 2 3 5 7

VB数值排序问题答：Private Sub xzPaiXu(a() As Double, sheng As Boolean)'a为需要排序的数组，sheng为True则为升序排列，为False，则为降序排列。Dim i As Integer, j As Integer Dim temp As Double Dim m As Integer For i = LBound(a) To UBound(a) - 1 '进行数组大小-1轮比较 m = i '在第i轮比...

VB编程:选择法及冒泡法排序数组答：Dim RNDDATA(1 To 15) As Integer '定义窗体级别的数组变量 Private Sub cmdRnd_Click()txtRndData.Text = "" '清除输入区 txtOutPut.Text = "" '清除输出区 Randomize Dim intindex As Long For intindex = 1 To 15 '填充随机数，并使用Cint强制转换为整数类型 RNDDATA(intindex) = CInt...

vb选择法排序的怎么做?答：Private Sub Command1_Click()Dim a(100) As Integer Randomize For i = 1 To 100 a(i) = Rnd * 100 Next i For i = 1 To 99 k = i For j = i + 1 To 100 If a(j) < a(k) Then k = j Next j t = a(i): a(i) = a(k): a(k) = t Next i For i = 1...

VB中如何给指定的数组排序??答：Picture2.Print "学号姓名 VC VB"Picture2.Print "---"For i = 0 To n - 1 Picture2.Print a(i).number, a(i).name, a(i).vc, a(i).vb Print Next i End Sub

vb 编程对已知存在在数组中的6个数,分别采用选择法冒泡法实现从小到大...答：1、冒泡法（递增）算法思想：(将相邻两个数比较，大的调到后头) 1）有n+1个数（存放在数组a(n)中），第一趟将每相邻两个数比较，大的调到后头，经n次两两相邻比较后，最大的数已“沉底”，放在最后一个位置，小数上升“浮起”； 2）第二趟对余下的n个数（最大的数已“沉底”）按上...

大家正在搜

vba数组参数传给自定义函数函数形参定义为数组怎么定义 c语言自定义函数调用数组自定义函数形参是数组用函数定义数组 c语言函数的定义与调用数组定义重载函数返回数组并调用函数内定义数组 c语言定义函数返回值为数组