Private Sub Form_Click()
Dim a(4) As Double
Dim n As Double
Dim i, j, k, t
For i = 0 To 4
a(i) = InputBox("请输入：" , "选择法排序")
Next i
For i = 0 To 3
k = i
For j = i + 1 To 4
If a(k) > a(j) Then k = j
Next j
If k <> i Then t = a(k): a(k) = a(i): a(i) = t
Next i
For i = 0 To 4
Print a(i)
Next i
End Sub
参考资料：http://zhidao.baidu.com/question/49607228.html
本回答被网友采纳VB 的基本选择排序算法。谁能讲一下。基础一点的
实例：Private Sub Form_Click()Dim a(4) As Double Dim n As Double Dim i, j, k, t For i = 0 To 4 a(i) = InputBox("请输入：" , "选择法排序")Next i For i = 0 To 3 k = i For j = i + 1 To 4 If a(k) > a(j) Then k = j Next j If k <> i T...
VB 关于选择排序算法
Private Sub Form_Click()arr = Array(5, 7, 8, 2, 3)For i = 0 To 3 k = i For j = i + 1 To 4 If arr(k) > arr(j) Then k = j Next j If k <> i Then t = arr(k): arr(k) = arr(i): arr(i) = t For j = 0 To 4 Print arr(j);Next j Print ...
如何用VB进行排序?
（3）选择排序：在交换顺序的基础上，找出剩余数量的最大值，并与地面上的I＋1数量进行交换，使得每轮比较中只有一次交换操作，该算法最多只有n－1个交换操作。
VB排序算法列举实例
1.冒泡法：(1) 从第一个元素开始，将相邻的数比较，若为逆序，就交换，比较完一轮，最大的数已沉底，成为数组中的最后一个元素a(n)(2) 对a(1)和a(n-1)的n-1个数进行同(1)的操作，次大的数放入a(n-1)中，完成第二轮排序。(3) 进行n-1轮排序，所有的数排序完毕。Dim a%(), i%...
vb代码选择法排序算法的代码,谢谢
Private Sub Command1_Click()Dim x(1 To 5) As IntegerDim n, i, j As Integern = 5For i = 1 To n x(i) = Val(InputBox("请输入"))NextFor i = 1 To n - 1 For j = i + 1 To n If x(i) > x(j) Then temp = x(i): x(i) = x(j): x(j)...
vb排序算法比较
快速排序算法是目前最好的，尤其是系统函数的效率相当高。
VB编程的一个问题,VB好学还是Office好学呢。
不过，对从未学过编程的人，学了VB一周下来要写五子棋，象棋是有挑战的——一周下来的话，你还需要熟悉语言，而那时，老师基本不会讲算法问题的——冒泡排序、选择排序、顺序查找、二分查找，这些是比较基本的，但是只是应付五子棋、象棋还很有压力，你需要学习一下DFS（深度优先搜索），之后为了优化，...
VB编程排序法
dtys temp, Label1(1)End Sub Sub dtys(a As Object, b As Object)Dim x%, y%, i%, j%, k Const DelayN = 1000 x = a.Left: y = a.Top For i = 1 To DelayN j = x + (b.Left - x) \/ DelayN * i k = y + (b.Top - y) \/ DelayN * i a.Move j, k ...
全国计算机2级vb笔试里的公共基础知识部分
算法:是指解题方案的准确而完整的描述。 算法不等于程序,也不等计算机方法,程序的编制不可能优于算法的设计。 算法的基本特征:是一组严谨地定义运算顺序的规则,每一个规则都是有效的,是明确的,此顺序将在有限的次数下终止。特征包括: (1)可行性; (2)确定性,算法中每一步骤都必须有明确定义,不充许有模棱两...
如何快速掌握VB的代码?
else，循环语句while...wend,或FOR循环）用选择或循环语句无非解决一些排序等问题，这些属于算法，再学一些数组的定义使用，最后自定义函数function,过程sub。那么基本语法就学完了。2.如果你是想用VB编一些小软件，可以在学了基本语法后，也可以暂时不学，直接找本VB的设计教材，它会一把手的教你怎么使用...
