UC知道关于vb升序的问题
来源：百度知道 编辑：UC知道 时间：2024/06/18 00:08:48
Dim j As Integer
Dim k As Integer
Dim temp As Integer
Dim flag As Boolean
For j = 1 To 100
flag = False
For k = 1 To 100 - j
If i(k) < i(k + 1) Then
temp = i(k)
i(k) = i(k + 1)
i(k + 1) = temp
flag = True
End If
Next
If Not flag Then
Exit For
End If
Next
Text1.Text = ""
For j = 1 To 100
Text1.Text = Text1.Text & i(j) & Space(5)
Next
putdata i, 100
就是flag那个判断不太清楚有什么作用，哪位高手可以指点一下迷津？？
Dim k As Integer
Dim temp As Integer
Dim flag As Boolean
For j = 1 To 100
flag = False
For k = 1 To 100 - j
If i(k) < i(k + 1) Then
temp = i(k)
i(k) = i(k + 1)
i(k + 1) = temp
flag = True
End If
Next
If Not flag Then
Exit For
End If
Next
Text1.Text = ""
For j = 1 To 100
Text1.Text = Text1.Text & i(j) & Space(5)
Next
putdata i, 100
就是flag那个判断不太清楚有什么作用，哪位高手可以指点一下迷津？？
就是判断有没有必要交换
比如如果2比1大，那就没有必要再执行下面的，
可以起到一个减少“工作量”的作用
flag就是他的一个属性值
Flag的作用是判断里面一个循环有没有发生数据交换，如果没有代表排序完成