本文目录
- VB的排序法的代码
- 用VB代码写程序： 随机产生5个数，用冒泡排序法排序（由小到大） 不要那种很复杂的 高中计算机课程难度
- vb冒泡排序代码是什么
- vb中的冒泡排序
- vb冒泡排序
- [VB]冒泡排序
- vb编程 产生10个50-100(包括50和100)的随机整数，并用“冒泡排序”按从小到大的顺序输出
- vb 冒泡排序
VB的排序法的代码
排序的各类很多，最简单的冒泡排序代码如下：Private Sub Command1_Click()Dim a(), i As Integer, j As Integer, tmp As Integera = Array(1, 3, 2, 5, 4, 6, 9, 7, 8, 0)Print Join(a, ",") For i = 0 To UBound(a) For j = i + 1 To UBound(a) If a(j) 《 a(i) Then tmp = a(j) a(j) = a(i) a(i) = tmp End If Next NextPrint Join(a, ",")End Sub
用VB代码写程序： 随机产生5个数，用冒泡排序法排序（由小到大） 不要那种很复杂的 高中计算机课程难度
窗体上放一个ListBox和两个CommandButton：Private a(0 To 4) As IntegerPrivate Const nMax = 10000 ’最大随机数Private Const nMin = 0 ’最小随机数Private Sub Command1_Click() Dim i As Integer List1.Clear For i = 0 To 4 Randomize a(i) = Int((nMax - nMin + 1) * Rnd + nMin) List1.AddItem a(i) NextEnd SubPrivate Sub Command2_Click() Dim i As Integer, j As Integer Dim tmp As Integer If List1.ListCount = 0 Then Exit Sub List1.Clear For i = 0 To 4 For j = i + 1 To 4 If a(i) 》 a(j) Then tmp = a(i) a(i) = a(j) a(j) = tmp End If Next Next For i = 0 To 4 List1.AddItem a(i) NextEnd Sub
vb冒泡排序代码是什么
冒泡排序法：Option ExplicitPrivate Sub Form_Click() Const N = 10 Dim i%, a(1 To N), m%, j%, t% RandomizeFor i = 1 To N ’随机输出10个1位数 a(i) = Int(Rnd * 9 + 1) Print a(i); Next i PrintFor i = 1 To N - 1 ’采用冒泡排序 For j = 1 To N - 1 If a(j) 》 a(j + 1) Then t = a(j): a(j) = a(j + 1): a(j + 1) = t End If Next j Next iFor i = 1 To N ’输出排序后的数字 Print a(i); Next i Print
vb中的冒泡排序
冒泡排序法思路：（假设有10个数，需要从小到大排）首先拿出第一个来和其他9个逐个来比较，这样就可以找到10个中最小的，放到第一位；接着拿第二个来和其他8个逐个比较，这样就可以找到剩下9个中得最小的，放到第二位；接着拿第三个来和其他7个逐个比较，这样就可以找到剩下8个中得最小的，放到第三位；。。。。。。就可以了。也许下面的看了会更清楚点 Dim a(10)RandomizeFor i = 1 To 10 a(i) = Int(Rnd * i + 3 + Rnd * 10) ’给数组赋值 Print a(i);Next iPrintFor i = 1 To 10 ‘ For j = i + 1 To 10 If a(j) 《 a(i) Then ’如果剩余的比a(i)小的话，就交换 t = a(j) a(j) = a(i) a(i) = t End If Next jNext i For k = 1 To 10 Print a(k); ‘打印排好的数Next kPrint
vb冒泡排序
看上面那一大段，我晕了(╯﹏╰)b下面的是从小到大排序的，从大到小只需改一个“》”号，看下面的注释，整个过程不变的。Private Sub Command1_Click()Dim x(1 To 5) As Double, i%, j%, tx(1) = Val(Text1)x(2) = Val(Text2)x(3) = Val(Text3)x(4) = Val(Text4)x(5) = Val(Text5)For i = 1 To 5 - 1 ’有5个数要排序，需要进行5-1=4次两两比较 For j = 5 To i + 1 Step -1 ’从末尾一个元素到第i个元素进行两两比较 If x(j) 《 x(j - 1) Then ’从小到大排序，若需要从大到小排序，将“《”改为“》”’若次序不对，则马上交换位置 t = x(j) x(j) = x(j - 1) x(j - 1) = t End If Next j ’除了内循环，一轮排序结束，最小（或最大）数已经冒到数组第一位Next iLabel1.Caption = x(1)Label2.Caption = x(2)Label3.Caption = x(3)Label4.Caption = x(4)Label5.Caption = x(5)End Sub
[VB]冒泡排序
这是升序:dim shuru(1 to 5)private sub form_load()for i = 1 to 5a(i) = inputbox("请输入第":i:"个数")print a(i)next ifor i = 1 to 4for j = i + 1 to 5if a(i) 》= a(j) then a1 = a(i)a(i) = a(j)a(j) = a1next j,iend iffor i = 1 to 5print a(i)next iend sub这是降序:dim shuru(1 to 5)private sub form_load()for i = 1 to 5a(i) = inputbox("请输入第":i:"个数")print a(i)next ifor i = 1 to 4for j = i + 1 to 5if a(i) 《= a(j) then a1 = a(i)a(i) = a(j)a(j) = a1next j,iend iffor i = 1 to 5print a(i)next iend sub区别在于先冒出的是大数还是小数小数就是升序大数就是降序
vb编程 产生10个50-100(包括50和100)的随机整数，并用“冒泡排序”按从小到大的顺序输出
Private Sub Command1_Click()
Dim a(1 To 10) As Integer
Dim i As Integer, j As Integer
Print "随机取到的10个50-100(包括50和100)的随机整数为"
For i = 1 To 10
Randomize
a(i) = Int(Rnd() * 51 + 50)
Print a(i);
Next i
Print "用“冒泡排序”按从小到大的顺序排序后"
For i = 1 To 10
For j = 1 To 10 - i
If a(j) 》 a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i
For i = 1 To 10
Print a(i);
Next i
End Sub
vb 冒泡排序
首先，所谓的冒泡排序，因为书本上都这样引入的，就是河里的气泡是从下向上移动的，所以为了符合这种说法，在排序过程中，也就从数组下标的大的元素开始，向数组下标小的元素方向进行。数组排序要用双重循环：外循环的次数，决定了需要排序多少轮次，6个元素的数组，需要5轮，n个元素的数组，需要n-1轮次。内循环，决定每一轮是哪些元素进行比较交换。规律或者目的：第一轮，要把第1小的值（或第1大的值）移动到第1个元素的位置里，第二轮，要把第2小的值（或第2大的值）移动到第2个元素的位置里，......第n-1轮，要把第n-1小的值（或第n-1大的值）移动到第n-1个元素的位置里，最后，第n个元素，不需要比较了，它一定是第n小（第n大的值）,已经在第n个元素里了。在比较的每一轮过程中，用for j = 6 to i +1 Step -1你可以把每一轮的i，j的变化列表，就理解了：第一轮：有6个元素参与比较，一共比较5次（i=1，j=6 to 2）第1次 第2次 第3次 第4次 第5次a(5)与a(6) a(4)与a(5) a(3)与a(4) a(2)与a(3) a(1)与a(2)第二轮：有5个元素参与比较，一共比较4次（i=2，j=6 to 3）第1次 第2次 第3次 第4次a(5)与a(6) a(4)与a(5) a(3)与a(4) a(2)与a(3)。。。。。。其余，你自己分析吧？
