查人人中国名人网健身吃的鸡胸肉哪里买:在VB中,比较几个数值的大小有哪些方法,请举例说出
来源：百度文库 编辑：查人人中国名人网 时间：2024/05/04 06:46:57
有两个很好的答案,叫我选哪一个好?
[冒泡]:
Dim n As Integer
n = 8
For j = 1 To n - 1
For i = 1 To n - j
If a(i) > a(i + 1) Then
t = a(i)
a(i) = a(i + 1)
a(i + 1) = t
End If
Next i
Next j
For i = 1 To n
Print a(i); " ";
Next i
[选择]:
Dim a(1 To 8) As Single
Private Sub Command1_Click()
Dim n As Integer, p As Integer
n = 8
For i = 1 To n - 1
p = i
For j = i + 1 To n
If a(j) < a(p) Then p = j
Next j
t = a(i)
a(i) = a(p)
a(p) = t
Next i
For i = 1 To 8
Print a(i); " ";
Next i
End Sub
排序法
比如
Private Sub Form_Load()
Form1.Show
Dim a(2) As Integer
a(0) = 21
a(1) = 23
a(2) = 232
For i = 0 To 2
If a(i) > a(0) Then a(0) = a(i)
t = a(i)
Next i
Print t
End Sub
还有冒泡发
单/双 向冒泡
选择
插入
等等
排序,冒泡,选择这是最基本的了.
排序法
冒泡法