漆黑魅影5.0ex捉宠表:请vb哥哥姐姐帮俺解释一下气泡排序法，就是下面的实例

来源：百度文库 编辑：高校问答 时间：2024/04/29 14:04:57
就是下面这段代码 帮俺解释一下

Const n = 8 '声明符号常量
Option Base 1
Private Sub Form_Load()
Randomize
For i = 1 To n '产生n 个随机数
Text1(i).ForeColor = RGB(0, 0, 0) '用黑色显示
Text1(i).Text = Int(90 * Rnd + 10)
Next i
End Sub
Private Sub Command1_Click()
For j = 1 To n - 1 '外循环
MsgBox "准备进行第" + Str(j) + "次比较，按回车键继续"
For i = 1 To n - j '内循环
If Val(Text1(i).Text) > Val(Text1(i + 1).Text) Then
t = Text1(i).Text
Text1(i).Text = Text1(i + 1).Text
Text1(i + 1).Text = t
End If
Next i
Text1(n - j + 1).ForeColor = RGB(255, 0, 0) '沉底数用红色表示
Next j
MsgBox "排序完毕"
End Sub
请vb哥哥姐姐帮俺解释一下气泡排序法，就是下面的实例 请vb哥哥姐姐帮俺解释一下拆半查找法，就是下面的实例 请各位哥哥姐姐们解释一下!谢谢 请vb哥哥姐姐解释一段代码 气泡排序 请姐姐哥哥们帮一下忙！ 请哥哥姐姐帮我分析一下 不好意思!请哥哥姐姐帮问答一下 请哥哥姐姐们帮我看看 请哥哥姐姐来帮我~555555~