srkp.net
当前位置:首页 >> vB,我知道是冒泡排序法,可是,F=truE 和F=FAlsE... >>

vB,我知道是冒泡排序法,可是,F=truE 和F=FAlsE...

不一定要那么多排序才能把那个数组排好 如果说,其中一次循环,没有发生一次排序,那证明数组已经排好了 那f还是为true,就可以直接退出循环,不用浪费资源了

f = True 这是将逻辑“真”赋值给f变量,当排序全部完成时,f肯定为真 重要是: If f Then Exit For End If 当f为真时,退出外循环,表示结束

冒泡法排序(升序) 基本思想:(将相邻两个数比较,小的调到前头) 1)有n个数(存放在数组a(n)中),第一趟将每相邻两个数比较,小的调到前头,经n-1次两两相邻比较后,最大的数已“沉底”,放在最后一个位置,小数上升“浮起”; 2)第二趟对余下的...

Private Sub Command1_Click() Dim a(5) As Double Dim i, j As Integer '给数组赋值 For i = 1 To 5 temp = InputBox(" 请输入" + Str(i) + "个数字", "输入") If IsNumeric(temp) Then '是数字就将数字赋值给数组 a(i) = temp Else '不是数字...

冒泡排序,在每一次比较的时候,如果发现相邻两数的次序不对,都会马上就把两数进行对调。 选择排序,则在比较过程中(内循环里面)并不进行对调,而是先记录下最小(大)数的下标,在一次扫描完成后再进行对调。所以它的效率会比冒泡的高一点。...

书上讲的是不容易理解我来给你说下比如 3,1,2,5,6,4 为例首先把数按顺序赋给数组 a(1~6) 不难吧然后给你提一点冒泡法最后一个数会确定下来第一个数,来下面:从大到小排: 1。for i = 1 to 6 2。 for j=i to 6-i 3。 if a(j)

Dim a(8) As Integer Dim cou As Integer Dim temp As Integer Sub shownum() Command1.Caption = a(1) Command2.Caption = a(2) Command3.Caption = a(3) Command4.Caption = a(4) Command5.Caption = a(5) Command6.Caption = a(6) Command7.C...

For i = 1 To 10 For j = 1 To 10 - i If a(j) > a(j + 1) Then temp = a(j + 1) a(j + 1) = a(j) a(j) = temp End If Next j Next i

Dim a%(8) Private Sub command1_click() Dim s$ For i = 1 To 8 a(i) = Int(Rnd * 90 + 10) s = s + Str(a(i)) Next Text1 = s End Sub Private Sub command2_click() Dim s$ For i = 1 To 7 For j = 1 To 8 - i If a(j) < a(j + 1) Then t = a...

这个要动态演示排序过程么?还是直接显示排序的结果?

网站首页 | 网站地图
All rights reserved Powered by www.srkp.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com